razliciti([],[]).
razliciti([G|R],[G|R1]) :- not(pripada(G,R)),razliciti(R,R1).
razliciti([G|R],L) :- razliciti(R,L).

pripada(X,[X|_]).
pripada(X,[_|R]):-pripada(X,R).

/* Poziva se sa: razliciti(Lista,Lista_razlicitih).   */