home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 07 / prolog / prog1.pro next >
Encoding:
Text File  |  1987-06-11  |  1.0 KB  |  29 lines
  1. "Pruefstrategie"
  2.  
  3. Spieler-am-Zug-kann-gewinnen(S-pielstand) ->    
  4.     Gewinnsituation(S-pielstand) /;
  5. Spieler-am-Zug-kann-gewinnen(S-pielstand) ->    
  6.      zulaessiger-Zug(S-pielstand,S-pielstand')
  7.     not( Spieler-am-Zug-kann-gewinnen(S-pielstand'));
  8.  
  9. "Spielregeln fuer das Streichholzspiel (Version 1)"
  10.  
  11. Gewinnsituation(<F-arbe-am-Zug,0>) ->;
  12.  
  13. zulaessiger-Zug(<F-arbe-am-Zug, H-oelzchenzahl >,
  14.         <F-arbe-am-Zug', H-oelzchenzahl' >) ->
  15.     Anzahl(n)
  16.     val(inf( H-oelzchenzahl,n),0)
  17.     val(sub( H-oelzchenzahl,n), H-oelzchenzahl')
  18.      Gegner( F-arbe-am-Zug, F-arbe-am-Zug');
  19.  
  20. Gegner(WEISS,SCHWARZ) ->;
  21. Gegner(SCHWARZ,WEISS) ->;
  22.  
  23. Anzahl(n) -> enum(n,3);
  24.  
  25. "Hilfspraedikat"
  26.  
  27. not(p) -> p / fail;
  28. not(p) ->;