home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / LAZYINHE.LF < prev    next >
Text File  |  1996-06-04  |  235b  |  21 lines
  1.  
  2. :: X:a | w("A:", root_sort(X)).
  3.  
  4. :: X:b | w("B:", root_sort(X)).
  5.  
  6. :: X:c | w("C:", root_sort(X)).
  7.  
  8. :: X:d | w("D:", root_sort(X)).
  9.  
  10. :: X:e | w("E:", root_sort(X)).
  11.  
  12. b <| e.
  13. b <| a.
  14.  
  15. c <| a.
  16.  
  17. d <| b.
  18. d <| c.
  19.  
  20. w(X,Y) :- write(X,Y), nl.
  21.