home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / pdpro / samples / playtext.pro < prev    next >
Encoding:
Text File  |  1994-02-22  |  384 b   |  16 lines
  1. /* 
  2. Text substitution game.
  3. Ask: ?-alter( [you, are, a, computer], Z ).
  4.  
  5. */
  6.  
  7. alter( [], [] ).
  8. alter( [H|T], [X|Y] ) :- change( H, X ), alter( T, Y ).
  9.  
  10. change( you, i ).
  11. change( are, [am, not ] ).
  12. change( french, german ).
  13. change( do, no ).
  14. change( X, X ).
  15.  
  16.