Subversion Repositories programming

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 ira 1 
/* compute permutations */
2 
 
3 
permute([],[]).
4 
permute([X|Y],Z) :- permute(Y,W), insert(X,W,Z).
5 
 
6 
insert(Y,XZ,XYZ) :- append(X,Z,XZ), append(X,[Y|Z],XYZ).
7