Subversion Repositories programming

/* compute permutations */

permute([],[]).
permute([X|Y],Z) :- permute(Y,W), insert(X,W,Z).

insert(Y,XZ,XYZ) :- append(X,Z,XZ), append(X,[Y|Z],XYZ).