home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / Guide / Extras / union < prev    next >
Encoding:
Text File  |  1989-12-10  |  238 b   |  12 lines
  1.  union([],Set,Set).
  2.     
  3.   union([X|Set1],Set2,Union) :-
  4.     element(X,Set2),!,
  5.     union(Set1,Set2,Union).
  6.   
  7.   union([X|Set1],Set2,[X|Union]) :-
  8.     union(Set1,Set2,Union).  
  9.  
  10. element(X,[X|_]).
  11. element(X,[_|Set]) :-
  12.     element(X,Set).