游戏汉诺塔源代码 (第1/2页)
　　
这个游戏是用Focal写成，大家见识一下这种化石编程语言，至于Basic和Fortran至今都在，就不举例子了。
　　
　　01.01 C　　 HANOI BY DEC
　　
　　01.02 C　　 FROM ‘PROGRAMMING LANGUAGES‘
　　
　　01.03 C　　 LAST CHANGE: 8/7/71
　　
　　01.04
　　
　　01.05 C　　 THIS PROGRAM WORKS WITH THE TOWERS OF HANOI PROBLEM.
　　
　　01.06 C YOU ARE GIVEN THREE TOWERS WITH VARIOUS SIZED DISCS ON
　　
　　01.07 C ONE OF THEM.　THE OBJECT IS TO PLACE ALL THE DISCS ON
　　
　　01.08 C ANOTHER TOWER ON AT A TIME, WITH THE STIPULATION THAT A
　　
　　01.09 C LARGER DISC MAY NEVER BE ON TOP OF A SMALLER ONE.　THIS
　　
　　01.10 C PROGRAM IS GOOD FOR ANY NUMBER OF DISCS AND CAN BE RUN
　　
　　01.11 C EITHER IN MANUAL (YOU TELL IT WHERE TO MOVE) OR AUTOMATIC
　　
　　01.12 C MODE.　IT WILL ALSO EXPLAIN ITS MOVES OR DRAW THE FOR YOU,
　　
　　01.13 C DEPENDING ON HOW YOU ANSWER THE ‘MOVES OR PLOTS‘ QUESTION.
　　
　　01.14 C ** OUT DISC IS THE DISC (1 ON TOP) THAT YOU WANT TO MOVE
　　
　　01.15 C ** IN DISC IS THE POSITION (1 ON TOP) WHERE YOU MOVE TO
　　
　　01.16 C ** OUT TOWER IS THE TOWER (1 ON LEFT) FROM WHICH YOU MOVE
　　
　　01.17 C ** IN TOWER IS THE TOWER (3 ON RIGHT) YOU MOVE TO
　　
　　01.18 C THIS PROGRAM ASSUMES NO CHEATING, AND DOES NOT CHECK FOR IT.
　　
　　01.19
　　
　　01.29 E
　　
　　01.30 A “NO. OF DISKS? “N,!
　　
　　01.40 F I=1,N;S SS(I)=I
　　
　　01.50 S SO=1;S SI=3
　　
　　
　　
　　（本章未完，请点击下一页继续阅读）