Help for this page

Select Code to Download

Select or download this

C:\test>perl -d:Trace junk72.pl
>> [0] junk72.pl                     :   16: hanoi( 3, 'A', 'C', 'B' )
+;
...
>> [0] junk72.pl                     :    6:     if ($n == 1) {
>> [0] junk72.pl                     :    7:         print "Move disk 
+#1 from $start to $end.";
Move disk #1 from A to C.