Prolog Lab 5 - Prob 4

concatenatePredef([],L,L).

concatenatePredef([X|L1],L2,[X|L3]) :- concatenatePredef(L1,L2,L3).

deleteElem(X,L,L1) :- concatenatePredef(L3,[X|L2],L), concatenatePredef(L3,L2,L1).

insertElem(X,L1,L) :- deleteElem(X,L,L1).

permutationList([X],[X]).

permutationList([X|T],L) :- permutationList(T,T1), insertElem(X,T1,L).