Инвертирования списка - Prolog

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

Уважаемые програмисты сайта. помогите

написать программу инвертирования списка

Решение задачи: «Инвертирования списка»

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

%invert/2
%peremesh/2
 
invert(List, Otvet):-peremsh(List, [], Otvet). 
peremesh([ ], Otvet, Otvet):- !. 
peremesh([H|T], Novspis, Otvet):- peremesh(T, [H|Novspis], Otvet).

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

В данном коде на языке Prolog реализована функция invert/2, которая инвертирует список. В первой строке кода %invert/2, %peremesh/2 указываются два метрических префикса для функций invert и peremesh соответственно. Далее следует определение функции invert/2, которая вызывает функцию peremesh/2 с параметрами List, Otvet и Novspis. При этом, если список пустой, то возвращается Otvet. Затем определена функция peremesh/3, которая рекурсивно обрабатывает каждый элемент списка. Если список пустой, то возвращается Otvet. Если же список не пустой, то в качестве значения Novspis используется список, в который добавляется элемент H, а затем вызывается функция peremesh/3 для обработки оставшейся части списка. Таким образом, код реализует рекурсивную функцию для инвертирования списка.