====== List duplicates remove ======
{{tag>lists}}
===== Description =====
Removing duplicates from a list.

**Source**:  The Art of Prolog
===== Download =====
Program source code: {{list_duplicates_remove.pl}}
===== Listing =====
<code prolog>
/*
	no_doubles(Xs,Ys) :-
		Ys is the list obtained by removing 
		duplicate elements from the list Xs.
*/

no_doubles([X|Xs],Ys) :-
	member(X,Xs), no_doubles(Xs,Ys).
no_doubles([X|Xs],[X|Ys]) :-
	nonmember(X,Xs), no_doubles(Xs,Ys).
no_doubles([],[]).

     nonmember(X,[Y|Ys]) :- X \== Y, nonmember(X,Ys).
     nonmember(X,[]).

%  Program 7.9   Removing duplicates from a list
</code>
===== Comments =====