Проверить, встречаются ли в строке три подряд идущих повторяющихся символа - Prolog
Формулировка задачи:
Дана строка. Проверьте, встречаются ли в ней три подряд идущих повторяющихся символа.
Решение задачи: «Проверить, встречаются ли в строке три подряд идущих повторяющихся символа»
textual
Листинг программы
predicates
test(string)
clauses
test("") :- fail.
test(S) :- frontchar(S,A,S1), frontchar(S1,A,S2), frontchar(S2,A,_),!.
test(S) :- frontchar(S,_,S1),test(S1).