Проверить, есть ли в заданном слове буква "к", стоящая на четных местах перед буквой "и" - Prolog
Формулировка задачи:
Здравствуйте!Помогите пожалуйста решить задачу.
Составьте программу, проверяющую, есть ли в заданном слове буква "к" стоящая на четных местах перед буквой "и". Код надо написать в Прологе.
Есть аналогичные задачи, но под свою мне никак не переписать код( Помогите пожалуйстаРешение задачи: «Проверить, есть ли в заданном слове буква "к", стоящая на четных местах перед буквой "и"»
textual
Листинг программы
predicates
len(string,integer)
chk(string,integer)
task(string)
clauses
len("",0).
len(S,N) :- frontchar(S,_,B), len(B,N1), N=N1+1.
chk(X,_) :- len(X,L), L<2, fail.
chk(X,N) :- frontchar(X,X1,R1), frontchar(R1,X2,_),(N mod 2)=0, X1='k',X2='y', !.
chk(X,N) :- frontchar(X,_,R), NN=N+1, chk(R,NN).
task(X) :- chk(X,1).