/* 
a) Ispisati sve liste date duzine N koje se sastoje od elemenata 0, 1 i 2. 
b) Generisati sve permutacije date liste razlicitih brojeva 
*/

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).

svepermutacije(L, LL) :- perm( L, N ), write( N ), nl, fail.
svepermutacije(L).

sve012(N):-generisi(L,N),write(L),nl,fail.

generisi([],0).
generisi([0|R],N):-N>0,M is N-1,generisi(R,M).
generisi([1|R],N):-N>0,M is N-1,generisi(R,M).
generisi([2|R],N):-N>0,M is N-1,generisi(R,M).