Вычеркнуть из слова все буквы, стоящие на четных местах после буквы "о" - Prolog
Формулировка задачи:
Помогите, пожалуйста, добрые люди, разобраться в задачах
составьте программу вычеркивания из слова всех букв, стоящих на четных местах после буквы "о".
Решение задачи: «Вычеркнуть из слова все буквы, стоящие на четных местах после буквы "о"»
textual
Листинг программы
predicates
delo(string,integer,char,string)
task(string,string)
clauses
delo("",_,_,"").
delo(S,N,P,R) :- N1=N+1, P='o', (N mod 2)=0, frontchar(S,A,B),delo(B,N1,A,R).
delo(S,N,P,R) :- N1=N+1, P<>'o', frontchar(S,A,B), delo(B,N1,A,RR), frontchar(R,A,RR).
delo(S,N,P,R) :- N1=N+1, P='o', (N mod 2)<>0, frontchar(S,A,B), delo(B,N1,A,RR), frontchar(R,A,RR).
task(S,R) :- frontchar(S,A,_), delo(S,1,A,R).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д