30.    Найти все возможные пары элементов списка.
Аргументы: исходный список;
пара элементов (список).
?- pred([a,b,c,d,e],X).
X = [a,b] -> ;
X = [a,c] -> ;
X = [a,d] -> ;
X = [a,e] -> ;
X = [b,c] -> ;
X = [b,d] -> ;
X = [b,e] -> ;
X = [c,d] -> ;
X = [c,e] -> ;
X = [d,e] -> ;
no
?-


собственно есть код для нахождения всех сочетаний элементов списка 

put(E, L, [E|L]).
put(E,[H|L], [H|Y]):- put(E, L, Y).
revers([], []).
revers([H|L], Z):- revers(L, Y), put(H, Y, Z).

откомментируйте пожалуйста его поподробней мб тогда сам смогу написать, или напишите и откомментируйте буду очень благодарен.

нашёл реализацию моей задачи

pred([H|T],[A,B]):-any([H|T],A,T1),any(T1,B,T2).

any([H|T],H,T).
any([H|T],X,Y):-any(T,X,Y).

только нигде не могу найти что значит команада any, подскажите где посмотреть или скажте пожалуйста что она делает (желательно применительно к этому коду)

M kemiisto

Для Prolog существует отдельный подраздел. Тема перенесена.