home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / SOAP.LF < prev    next >
Text File  |  1996-06-04  |  775b  |  29 lines
  1. % FILE. . . . . /_/hassan/_/life/ok/soap.life
  2. % EDIT BY . . . Hassan Ait-Kaci
  3. % ON MACHINE. . Prl316
  4. % STARTED ON. . Thu Mar 12 11:03:02 1992
  5.  
  6. % Last modified on Mon Feb 22 05:05:16 1993 by Rmeyer
  7. %      modified on Thu Mar 12 11:03:10 1992 by Hassan
  8.  
  9. soap_opera := tv_show(characters => [H,W,M],
  10.                       husband => H:dick,
  11.                       wife => W:alcoholic & long_lost_sister(H),
  12.                       mailman => M)
  13.             | lovers(M,H),blackmail(W,M).
  14.  
  15. person := {gay;alcoholic;drug_addict}.
  16. dick   <| gay.
  17. jane   <| alcoholic.
  18. harry  <| drug_addict.
  19.  
  20. long_lost_sister(gay) -> {cleopatra;jane}.
  21.  
  22. lovers(harry,gay).
  23.  
  24. blackmail(jane,X:drug_addict) :- lovers(X,dick).
  25.  
  26. terrible(soap_opera).
  27.  
  28. soap_cast(C) :- terrible(tv_show(characters => C:list)).
  29.