home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / h < prev   
Encoding:
Text File  |  1995-04-01  |  3.1 KB  |  129 lines
  1.  
  2. % THE UNDEVELOPED DATA IS IN "Tales".
  3.  
  4. episode :-
  5.         tab(15),
  6.         write('" H A R E M   G I F T S. "'),nl,
  7.         tab(15),
  8.         write('----------------------------'),nl,nl.
  9.  
  10. /*
  11.    Sulla the Magnificent presented the pearlclasp, 
  12.  which was not the piece valued at 105 thousand pounds
  13.  sterling, to one of his wives who bore the name of a 
  14.  colour.
  15.    Her present, which had not been the property of 
  16.  MadameX, was worth more than Medusa's.
  17.   
  18.    The other of Sulla's wives who's name also was a 
  19.  colour obtained a gift worth over 100 thousand pounds 
  20.  sterling.It was the filmstar who lost that jewel, which
  21.  was not the diamond necklace.
  22.  
  23.    Violet received the most expensive clasp. This 
  24.  was not the ruby clasp. She was not the recipient 
  25.  of the jewel that was formerly the property of the
  26.  countess.
  27.  
  28.    One of the two most valuable jewels, neither being 
  29.  the pearl clasp, found its way to one of the ladies 
  30.  with a flower name. The film star had been the 
  31.  previous owner.
  32.  
  33.    Daisy did not receive a necklace, her gift was not 
  34.  the most expensive, but it was of twice the 
  35.  value of that received by Scarlet.
  36.  
  37.    Venus's present was of equal value to that of both
  38.  Violet's and Scarlet's together.
  39.  
  40.    Lady Lily did not lose the ruby clasp. Neither did 
  41.  she or the prima donna lose a necklace to Sulla's 
  42.  ladies, but both Madame X and the countess did.
  43.  
  44.   The diamond necklace certainly wasn't the least
  45.  expensive piece acquired by Sulla for one of his wives.
  46. */
  47.   
  48.  
  49.  
  50.    
  51. group([sterling225k,sterling165k,sterling105k,sterling60k,sterling25k]).
  52. group([primadonna,countess,madamex,filmstar,ladylily]).
  53. group([opalnecklace,diamondnecklace,emeraldclasp,pearlclasp,rubyclasp]).
  54. group([violet,venus,scarlet,medusa,daisy]).
  55.  
  56. i(pearlclasp,sterling105k).
  57. i(pearlclasp,medusa).
  58. i(pearlclasp,daisy).
  59. i(pearlclasp,venus).
  60. i(pearlclasp,sterling25k).
  61. i(medusa,sterling225k).
  62. i(madamex,pearlclasp).
  63.  
  64. i(filmstar,medusa).
  65. i(filmstar,daisy).
  66. i(filmstar,venus).
  67. i(filmstar,diamondnecklace).
  68. i(filmstar,sterling25k).
  69. i(filmstar,sterling60k).
  70.  
  71. i(violet,opalnecklace).
  72. i(violet,diamondnecklace).
  73. i(violet,sterling25k).
  74. i(violet,sterling60k).
  75. i(violet,rubyclasp).
  76. i(violet,countess).
  77.  
  78.  i(filmstar,medusa).       %  Induced twice.
  79.  i(filmstar,venus).        %     
  80. i(filmstar,scarlet).
  81.  i(filmstar,sterling25k).  %
  82.  i(filmstar,sterling60k).  %
  83. i(filmstar,sterling105k).
  84. i(filmstar,pearlclasp).
  85.  
  86. i(daisy,opalnecklace).
  87. i(daisy,diamondnecklace).
  88. i(scarlet,sterling225k).
  89. i(scarlet,sterling165k).
  90. i(daisy,sterling225k).
  91. i(daisy,sterling165k).
  92. i(daisy,sterling25k).
  93.  
  94.  i(venus,sterling25k).    %
  95.  i(venus,sterling60k).    %
  96. i(venus,sterling105k).
  97. i(violet,sterling225k).
  98.  i(violet,sterling25k).   %
  99. i(scarlet,sterling225k).
  100. i(scarlet,sterling25k).
  101.  
  102. i(filmstar,sterling105k).
  103. i(filmstar,sterling60k).
  104. i(filmstar,sterling25k).
  105. i(madamex,sterling105k).
  106. i(madamex,sterling60k).
  107. i(madamex,sterling25k).
  108.  
  109. i(ladylily,rubyclasp).
  110. i(ladylily,opalnecklace).
  111. i(ladylily,diamondnecklace).
  112. i(primadonna,opalnecklace).
  113. i(primadonna,diamondnecklace).
  114. i(madamex,emeraldclasp). 
  115. i(madamex,pearlclasp).
  116. i(madamex,rubyclasp).
  117. i(countess,emeraldclasp).
  118. i(countess,pearlclasp).
  119. i(countess,rubyclasp).
  120.  
  121. i(diamondnecklace,sterling25k).
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.