Wednesday, May 4, 2011

PROGRAM FOR THE INTERSECTION OF TWO LISTS


int([X|Y],Z,[X|D]):-member(X,Z),int(Y,Z,D).
int([X|Y],Z,D):- \+member(X,Z),int(Y,Z,D).
int([],Z,[]).

No comments:

Post a Comment