====== Delete element 2 ======
{{tag>lists}}
===== Description =====
Deleting elements from a list

**Source**:  The Art of Prolog
===== Download =====
Program source code: {{delete_element_2.pl}}
===== Listing =====
<code prolog>
/*
   delete(Xs,X,Ys) :- 
	Ys is the result of deleting all occurrences of X from the list Xs.
*/
     delete([X|Xs],X,Ys) :- !, delete(Xs,X,Ys).
     delete([X|Xs],Z,[X|Ys]) :- Y \== X, !, delete(Xs,Z,Ys).
     delete([],X,[]).

%   Program 11.9a   Deleting elements from a list
</code>
===== Comments =====