Вычеркнуть из слова все буквы, стоящие на четных местах после буквы "о" - 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).

Оцени полезность:

5   голосов , оценка 4.8 из 5
Похожие ответы