home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / prolog / epro23.ark / SCIAM.PRO < prev    next >
Encoding:
Text File  |  1986-11-02  |  1.3 KB  |  49 lines
  1. [ This simple logic problem is found on p. 206 of the
  2. September, 1984, Scientific American, in the article
  3. "Computer Software for Intelligent Systems".  To find out
  4. whether Marcus hates Caesar, use the query
  5.    > (hates Marcus Caesar)                ]
  6.  
  7. [ 1. Marcus was a man.]
  8. ((man Marcus))
  9.  
  10. [ 2. Marcus was a Pompeian.]
  11. ((pompeian Marcus))
  12.  
  13. [ 3. All Pompeians were Romans.]
  14. ((roman ?X)
  15.   (pompeian ?X))
  16.  
  17. [ 4. Caesar was a ruler.]
  18. ((ruler Caesar))
  19.  
  20. [ 5. All romans were either loyal to Caesar or hated him.]
  21. ((hates ?X Caesar)
  22.   (roman ?X)
  23.   (not-loyal-to ?X Caesar))
  24.  
  25. [ 6. People only try to assasinate rulers they are not loyal to.]
  26. ((not-loyal-to ?X ?Y)
  27.   (man ?X)
  28.   (tries-to-assasinate ?X ?Y))
  29.  
  30. [ 7. Marcus tried to assasinate Caesar.]
  31. ((tries-to-assasinate Marcus Caesar))
  32.  
  33. [ 8. A person hates someone who steals his wife.]
  34. ((hates ?X ?Y)
  35.   (steals-wife-of ?Y ?X))
  36.  
  37. [ 9. If the wife of a man who is alive marries a second man,
  38.       then the second man stole the first man's wife.]
  39. ((steals-wife-of ?X ?Y)
  40.   (wife-of ?Z ?Y)
  41.   (alive ?Y)
  42.   (marries ?X ?Z))
  43.  
  44. [10. Lucretia was Marcus's wife.]
  45. ((wife-of Lucretia Marcus))
  46.  
  47. [11. Marcus was alive.]
  48. ((alive Marcus))
  49.