RosettaCodeData/Task/Remove-duplicate-elements/Prolog/remove-duplicate-elements-3.pro

member1(X,[H|_]) :- X==H,!.
member1(X,[_|T]) :- member1(X,T).

distinct([],[]).
distinct([H|T],C) :- member1(H,T),!, distinct(T,C).
distinct([H|T],[H|C]) :- distinct(T,C).
tasks a-s 2013-04-10 23:57:08 -07:00			`member1(X,[H\|_]) :- X==H,!.`
Just another update 2015-02-20 00:35:01 -05:00			`member1(X,[_\|T]) :- member1(X,T).`
tasks a-s 2013-04-10 23:57:08 -07:00
			`distinct([],[]).`
			`distinct([H\|T],C) :- member1(H,T),!, distinct(T,C).`
			`distinct([H\|T],[H\|C]) :- distinct(T,C).`