Одинаковые буквы в слове

@Liv-pooL · Регистрация: 17.04.2011

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

Как определить, если ли в слове две одинаковые буквы, которые не обязательно идут ранее...
Две подрят написал, тут никак... Пробовал в список переводить и потом искоть - тоже не вышло

Добавлено через 19 часов 32 минуты

Prolog

out_put(Bt_surname):- key_current(mydba,Bt_surname,_,Ref),
   ref_term(mydba,student,Ref,
   student(Number,Name,Surname,Bal)),
   strTolist(Surname, N),
   symb(N,T),T=1,
   write( "№ зачетки - ",Number,' ',Name,' ',Surname," Средний бал-",Bal,"\n"),
   key_next(mydba,Bt_surname,_), out_put(Bt_surname).
 out_put(Bt_surname):- key_current(mydba,Bt_surname,_,Ref),
   ref_term(mydba,student,Ref,
   student(_,_,Surname,_)),
   symb(N,T),T<>1,
   key_next(mydba,Bt_surname,_), out_put(Bt_surname).
   
 strTolist("",[]).
 strTolist(Str,[H|T]):-frontchar(Str,H,Ost),strTolist(Ost,T).
    
   symb([H|T],Flag):-sb(T,H,Flag),symb(T,Flag).
   symb([],0).
   
   sb([F|T],K,Flag):-F<>'0',sb(T,K,Flag).
   sb([H|T],K,Flag):-K=H,Flag=1,!.sb(T,K,Flag).
   sb([],_,0).

Набрасал вот так, но оно не работает

@Грымзик · 19.11.2012, 21:15

Если есть список символов, то так
check(L) :- append(_,[C|Tail],L),append(_,[C|_],Tail).

@Liv-pooL · 22.11.2012, 02:48 **[ТС]**

Спасибо, я уже разобрался.
Не подскажите, как в предикате, который список в строку переводит, сделать так чтобы между элементами списка в строке был пробел?

Prolog

1 2	listTostr([],""). listTostr([H\|T],Str):-listTostr(T,Str1),fronttoken(Str,H,Str1).

@Грымзик 2505 / 1479 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	19.11.2012, 21:15	2
	Если есть список символов, то так check(L) :- append(_,[C\|Tail],L),append(_,[C\|_],Tail). 1

Опции темы