06.09. permute/2 (Zusatzaufgabe)

Schreibe ein Prädikat permute/2, das zwei Listen akzeptiert, wenn die eine Liste aus der anderen durch Permutation der Elemente hervorgeht:

?- permute([a,b,c,d],[c,d,a,b]).
true.
?- permute([a,b,c],X).
X = [a, b, c] ;
X = [a, c, b] ;
X = [b, a, c] ;
X = [b, c, a] ;
X = [c, b, a] ;
X = [c, a, b] ;
false.