%       exemple "classique" pour ift2030...
%   enlever les doubles successifs d'une liste

noDups([],[]).
noDups([X],[X]).
noDups([X|Xs],[X|Z]):-delFront(X,Xs,Xs1),noDups(Xs1,Z).

delFront(_,[],[]).
delFront(X,[X|Xs],Z):-delFront(X,Xs,Z).
delFront(_,Xs,Xs).