Help for this page
sub movedisks { #to make this move
my( $num, $from, $to, $aux ) = @_; if( $num == 1 ) { ; } else {
#you have to make those two moves first movedisks( $num-1, $from, $aux, $to ); movedisks( $num-1, $aux, $to, $from );
} }
www.com | www.net | www.org
No recent polls found