Замена четных символов в строке на Turbo Prolog

Формулировка задачи:

Добрый вечер. Имеется следующая задача: Составьте программу, меняющую в слове X букву «а» на букву «e», если «а» стоит на четном месте. Подскажите, пожалуйста, как реализовать задачу? В прологе не очень силен. Спасибо.

Решение задачи: «Замена четных символов в строке на Turbo Prolog»

Листинг программы

predicates
repl(string,integer,string)
task(string,string)
 
clauses
repl("",_,"").
repl(X,N,Y) :- (N mod 2)=0, frontchar(X,'a',RX), N1=N+1, repl(RX,N1,RY), frontchar(Y,'e',RY).
repl(X,N,Y) :- (N mod 2)<>0, frontchar(X,'a',RX), N1=N+1, repl(RX,N1,RY), frontchar(Y,'a',RY).
repl(X,N,Y) :- frontchar(X,F,RX), F <> 'a', N1=N+1, repl(RX,N1,RY), frontchar(Y,F,RY).
 
task(X,Y) :- repl(X,1,Y).

Объяснение кода листинга программы

Задача - замена четных символов в строке на 'a'.
В коде определены два предиката:
- repl(string,integer,string) - замена четных символов в строке.
- task(string,string) - основная задача.
В коде есть три случая обработки:
- Если строка пустая, то результатом будет пустая строка.
- Если текущий символ нечетный, то он просто переносится в результат.
- Если текущий символ четный, то он заменяется на 'a'.
Код выполняется следующим образом:
- Входные данные передаются в предикат repl.
- Начинается перебор символов в строке.
- Если текущий символ четный, то он заменяется на 'a'.
- Если текущий символ нечетный, то он просто переносится в результат.
- Результатом работы предиката repl является новая строка.
- Если входная строка пустая, то результатом будет пустая строка.
- В случае, если входная строка не пустая, то результат передается в предикат task.
- Результатом работы предиката task будет строка, полученная после замены четных символов на 'a'.