home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / Guide / Extras / intersect < prev    next >
Encoding:
Text File  |  1991-06-07  |  403 b   |  16 lines
  1.  
  2. intersect([],_,[]).
  3. intersect([X|Set1],Set2,[X|Int]) :-
  4.                                  element(X,Set2),!,
  5.                                  intersect(Set1,Set2,Int).
  6. intersect([X|Set1],Set2,Int) :-
  7.                              intersect(Set1,Set2,Int).
  8.  
  9.   /*  Example ?- intersect([i,j,k,l,m],[n,m,l,k],X).
  10.               X = [k,l,m]
  11.   */
  12.  
  13.  
  14. element(X,[X|_]).
  15. element(X,[_|Set]) :-
  16.    element(X,Set).