Prolog. Клонирование списка.

[java_shkiper]

Необходимо написать свой предикат для клонирование списка(поэлементное добавление элементов в конец из одного списка в другой, новый).
По началу подумал, всё просто, но не получилось почему-то.
Вот мои пробы кода :
ну предикат добавления элемента в конец списка:
add(E,[],[E]).
add(E,[H|T],[H|T1]):-add(E,T,T1).
собственно, сам предикат для клонирования:
clone([],_).
clone([H|L], S) :- add(H, S, S1), clone(L, S1).
но не работает ...

[java_shkiper]

это нормальное решение или быдлокодерское
%слияние 2-х списков
append([],L,L):-!.
append([H|T],P,[H|Y]):-append(T,P,Y).

clone([],M,M):-!.
clone([H|T],L,List):- clone(L,[H],L2),
clone(T,L2,List).

[rrrFer]

проблема решилась?
я не пойму что в последнем посте у вас не так.

[java_shkiper]

проблема решилась, просто мучает вопрос плохое ли решение, много строк занимает думаю

[rrrFer]

Ну так то да, говнокод тот еще.
Что тут происходит я в корне не понимаю:

clone([H|T],L,List):- clone(L,[H],L2),
clone(T,L2,List).

Если вы пытались сделать это:

Необходимо написать свой предикат для клонирование списка(поэлементное добавление элементов в конец из одного списка в другой, новый).

то выглядеть оно должно так примерно:

p([],[]):-!.
p([H|T],[H|R]):-p(T,R).

или я что-то не понимаю?

[java_shkiper]

спасибо огромное вам, это лучше выглядит решение, то просто основано на слиянии списков и каждый раз создаётся новый список с одним элементом