home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Languages / UCB Logo 3.0 ƒ / CSLS / tower < prev    next >
Encoding:
Text File  |  1992-09-04  |  1.1 KB  |  32 lines  |  [TEXT/ttxt]
  1. PROGRAM TOWER(OUTPUT);
  2. {THIS PROGRAM SOLVES THE 5-DISK TOWER OF HANOI PROBLEM.}
  3.  
  4. PROCEDURE HANOI(NUMBER:INTEGER;FROM,ONTO,OTHER:CHAR);
  5.  {RECURSIVE PROCEDURE THAT SOLVES A SUBPROBLEM OF THE ORIGINAL PROBLEM,
  6.  MOVING SOME NUMBER OF DISKS, NOT NECESSARILY 5.  TO MOVE N DISKS, IT
  7.  MUST GET THE TOPMOST N-1 OUT OF THE WAY, MOVE THE NTH TO THE TARGET
  8.  STACK, THEN MOVE THE N-1 TO THE TARGET STACK.}
  9.  
  10.    PROCEDURE MOVEDISK(NUMBER:INTEGER;FROM,ONTO:CHAR);
  11.     {THIS PROCEDURE MOVES ONE SINGLE DISK.  IT ASSUMES THAT THE MOVE IS
  12.     LEGAL, I.E., THE DISK IS AT THE TOP OF ITS STACK AND THE TARGET STACK
  13.     HAS NO SMALLER DISKS ALREADY.  PROCEDURE HANOI IS RESPONSIBLE FOR
  14.     MAKING SURE THAT'S ALL TRUE.}
  15.  
  16.       BEGIN {MOVEDISK}
  17.          WRITELN('MOVE DISK ',NUMBER:1,' FROM ',FROM,' TO ',ONTO)
  18.       END; {MOVEDISK}
  19.  
  20.    BEGIN {HANOI}
  21.       IF NUMBER <> 0 THEN
  22.           BEGIN
  23.              HANOI(NUMBER-1,FROM,OTHER,ONTO);
  24.              MOVEDISK(NUMBER,FROM,ONTO);
  25.              HANOI(NUMBER-1,OTHER,ONTO,FROM)
  26.           END
  27.    END; {HANOI}
  28.  
  29. BEGIN {MAIN PROGRAM}
  30.    HANOI(5,'A','B','C')
  31. END.
  32.