home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / MODULE_T.L00 < prev    next >
Text File  |  1996-06-04  |  470b  |  25 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. module("lists")?
  3. public(app,rev)?
  4.  
  5. app(L,[]) -> L.
  6. app(L,[H|T]) -> [H|app(L,T)].
  7.  
  8. rev([]) -> [].
  9. rev([H|T]) -> app([H],rev(T)).
  10.  
  11.  
  12.  
  13. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  14. module("jolly")?
  15. open("import")?
  16. public(app)?
  17. dynamic(app)?
  18.  
  19. app([],L) -> L.
  20.  
  21. import_clauses(for => lists#app,
  22.                replacing => [(lists#app,app)])?
  23.  
  24. app(X,Y) -> (X,Y).
  25.