home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
ckscripts
/
hanoi
< prev
next >
Wrap
Text File
|
2020-01-01
|
851b
|
29 lines
#!/usr/local/bin/kermit +
; h a n o i -- Towers Of Hanoi
;
; Author: Dat Thuc Nguyen, 21 Sep 2001
; \%1 Number_of_Discs
; \%2 Start_Peg
; \%3 Goal_Peg
define Tower_Of_Hanoi {
if < \v(argc) 4 exit 1 Usage: hanoi ndisks startpeg goalpeg
if not numeric \%1 exit 1 \%1: not a number
if not numeric \%2 exit 1 \%2: not a number
if not numeric \%3 exit 1 \%3: not a number
if ( < \%1 1 || < \%2 1 || < \%3 1 ) exit 1 Numbers must be positive
if ( > \%2 3 || > \%3 3 ) exit 1 Peg must be 1 or 2 or 3
if ( = \%2 \%3 ) exit 1 Peg numbers must be distinct
if = 1 \%1 {
echo Move Top Disc from peg \%2 to peg \%3.
} else {
(Tower_Of_Hanoi (- \%1 1) \%2 (- 6 (+ \%2 \%3)))
Tower_Of_Hanoi 1 \%2 \%3
(Tower_Of_Hanoi (- \%1 1) (- 6 (+ \%2 \%3)) \%3)
}
}
Tower_Of_Hanoi \%1 \%2 \%3
exit 0