Выяснить, есть ли в слове Х и У одинаковые символы

@Серега92 · Регистрация: 09.10.2012

Студворк — интернет-сервис помощи студентам

Составьте программу выясняющую есть ли в слове Х и У одинаковые символы

@Catstail · 30.11.2015, 15:14

Prolog

domains
str=string
 
predicates
isIn(char,str)
task(str,str)
 
clauses
isIn(_,"") :- fail.
isIn(C,Q) :- frontchar(Q,C,_).
isIn(C,Q) :- frontchar(Q,Z,T), C<>Z, isIn(C,T).
 
task("",_) :- fail.
task(X,Y)  :- frontchar(X,A,_), isIn(A,Y).
task(X,Y)  :- frontchar(X,A,R), not(isIn(A,Y)), task(R,Y).

@Серега92 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 21
		1
	Выяснить, есть ли в слове Х и У одинаковые символы 30.11.2015, 15:04. Показов 586. Ответов 1 Метки нет (Все метки) Составьте программу выясняющую есть ли в слове Х и У одинаковые символы 0

Опции темы