/* Generisati sve permutacije date liste razlicitih elemenata */
/* perm(Lista,Res). */

perm([],[]).
perm(L,[X|L2]):-
      clan(X,L),
      brisi(X,L,L1),
      perm(L1,L2).

clan(X,[X|_]).
clan(X,[_|Y]):-clan(X,Y).

brisi(X,[X|Y],Y):-!.
brisi(X,[G|R],[G|R1]):-brisi(X,R,R1).