DELETE ALL OCCURRENCE OF AN ELEMENT IN PROLOG

delete([],A,[]).

delete([H|T],A,Result) :- H=A, delete(T,A,Result).

delete([H|T],A,[H|Result]) :- delete(T,A,Result).

Output

delete([a,b,c,a],a,X)

X=["b","c"]

X=["b","c","a"]

X=["a","b","c"]

X=["a","b","c","a"]

4 Solutions