home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 01 / prolog / hanoi.pro < prev    next >
Encoding:
Text File  |  1987-11-03  |  692 b   |  31 lines
  1.  
  2. module hanoi.
  3.  
  4. /*$eject*/
  5. body.
  6.  
  7. start(N) :- 
  8.      write("Tuerme von Hanoi mit 9 Scheiben."), nl, write(N), 
  9.        write(" Wiederholungen, OHNE I/O ! "), nl, 
  10.        write("Start..."), nl, n_hanoi(0,N), write("...Ende !"), 
  11.        nl .
  12.  
  13. n_hanoi(ENDE,ENDE) .
  14. n_hanoi(N,ENDE) :- 
  15.      hanoi(9), N1 is N+1, n_hanoi(N1,ENDE) .
  16.  
  17. hanoi(N) :- 
  18.      scheibe(N,linken,rechten,mittleren) .
  19.  
  20. scheibe(0,_,_,_) .
  21. scheibe(X,VON,NACH,UEBER) :- 
  22.      M is X-1, scheibe(M,VON,UEBER,NACH), 
  23.        scheibe(M,UEBER,NACH,VON) .
  24.  
  25. lege(A,B) :- 
  26.      write("Lege Scheibe vom "), write(A), write(" zum "), 
  27.        write(B), write(" Stift."), nl .
  28.  
  29. :- hanoi(4).
  30. endmod /* hanoi */  .
  31.