home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / Help! / m < prev    next >
Encoding:
Text File  |  1995-02-04  |  2.1 KB  |  83 lines
  1.  
  2. % THE UNDEVELOPED DATA IS IN "Tales".
  3.  
  4. episode :-
  5.         tab(15),
  6.         write('" T H E    M A R I N A. "'),nl,
  7.         tab(15),
  8.         write('-------------------------.'),nl,nl.
  9.  
  10. /* Briefly,
  11.  
  12.      In "The Marina." the jewel thieves are relaxing whilst 
  13.      the S.S.Corsair is in harbour. With other passengers 
  14.      they are now ashore and are unwinding after going into
  15.      consultation with their land-based contacts. They have 
  16.      been engaging in various leisurely activities. Some 
  17.      monetary losses have been incurred. For instance, 
  18.      Richard Turpin and Cynthia have their losses at the 
  19.      Marina Casino. No two persons lost money at the same 
  20.      pursuit.
  21.   
  22.    Dick and Cynthia's losses at the Marina Casino, together, were 
  23.      twice those incurred by a colleague who played neither poker or 
  24.      pontoon, and three times those sustained by one of their 
  25.      companions in crime who did not throw the dice. 
  26.  
  27.    Cynthia's lost a litle more than did the locksmith and a little 
  28.      less than the one who lost at dice.
  29.             
  30.    The Agent and the locksmith, together, lost twice that which 
  31.      the person who lost on the roulette wheel incurred.
  32.  
  33.    More was lost on poker, which Dick did not play, than on pontoon.
  34. */ 
  35.  
  36. group([lost900,lost700,lost600,lost500,lost400]).
  37. group([dick,cynthia,safebreaker,agent,locksmith]).
  38. group([roulette,pontoon,dice,poker,horses]).
  39.  
  40.  c(cynthia,lost500).
  41.  c(dick,lost700).
  42.  c(lost400,locksmith).
  43.  c(lost600,dice).
  44.  c(lost500,roulette).
  45.  
  46.  i(dick,horses).
  47.  i(cynthia,horses).
  48.  i(lost400,dice).
  49.  i(lost600,poker).
  50.  i(lost600,pontoon).
  51.  i(dick,lost900).
  52.  i(dick,lost600).
  53.  i(dick,lost400).
  54.  i(cynthia,lost900).
  55.  i(cynthia,lost600).
  56.  i(cynthia,lost400).
  57.  i(locksmith,lost900).
  58.  i(locksmith,lost700).
  59.  i(dice,lost400).
  60.  i(locksmith,lost500).
  61.  i(cynthia,dice). 
  62.  i(locksmith,dice).
  63.  i(dice,lost900).
  64.  i(agent,lost900).
  65.   i(locksmith,lost900).         % Induced twice.
  66.  i(agent,roulette).
  67.  i(locksmith,roulette).
  68.  i(agent,lost700).
  69.  i(agent,lost500).
  70.   i(locksmith,lost700).         %
  71.   i(locksmith,lost500).         %
  72.  i(poker,lost400).
  73.  i(pontoon,lost900).
  74.  i(dick,poker).
  75.  
  76.  
  77.            
  78.  
  79.  
  80.  
  81.  
  82.           
  83.