Select Code to Download

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 );

  }
}