Перестановка элементов списка - Prolog

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

Подскажите, пожалуйста, (или дайте ссылки на) решения следующих задач со списками: 1) Поменять местами 2 выбранных элемента списка, что-то вроде pred(List, Ind1, Ind2, ResultList) 2) Переместить из списка 1 в список 2 числа, попадающие в заданный интервал, пример pred(List, Begin, End, ResultList).

Решение задачи: «Перестановка элементов списка»

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

                            domains
int=integer
intl=int*
 
predicates
 
getEl(intl,int,int)
putEl(intl,int,int,intl)
swap(intl,int,int,intl)
 
clauses
 
getEl([H|_],0,H).
getEl([_|T],N,Z) :- N1=N-1, getEl(T,N1,Z).
 
putEl([_|T],0,V,[V|T]).
putEl([H|T],N,V,[H|Q]) :-N1=N-1, putEl(T,N1,V,Q).
 
swap(A,N1,N2,R) :- getEl(A,N1,V1), getEl(A,N2,V2), putEl(A,N1,V2,B1), putEl(B1,N2,V1,R).
                        