Рекурсивное программирование и управление на языке Пролог - Prolog

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

Привет всем. Нужна помощь со следующим заданием: Задание №1. Разработать рекурсивный вариант программы для решения предложенной ниже задачи. Задание №2. Разработать вариант программы с использованием средств управления в Прологе. Определять номер элемента списка из целых чисел, значение которого равно сумме первого и последнего элементов того же списка. Помогите пожалуйста

Решение задачи: «Рекурсивное программирование и управление на языке Пролог»

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

                            domains
int=integer
intl=int*
 
predicates
search(intl,int,int,int)
last(intl,int)
task1(intl,int)
 
clauses
search([],_,_,-1).
search([X|_],X,N,N).
search([Y|T],X,N,K) :- X<>Y, N1=N+1, search(T,X,N1,K).
 
last([X],X).
last([_|T],X) :- last(T,X).
 
task1([H|T],R) :- last(T,Z), S=H+Z, search([H|T],S,1,R).
                        