home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / Guide / Extras / insert < prev    next >
Encoding:
Text File  |  1988-03-18  |  239 b   |  11 lines
  1.  
  2. % insert element Y after element X in List1
  3. %  and return new list as List2.
  4.  
  5. insert(X,Y,List1,List2) :-
  6.                         conc(L1,[X|L2],List1),
  7.                         conc(L1,[X,Y|L],List2).
  8.  
  9. % insert(1,3,[1,5],L).
  10.  
  11. % L=,[1,3,5]