Select Code to Download

sub factorial 
{
...
   return 1 if $n == 0;
   return factorial($n-1) * $n;
}

sub hanoi 
{
...
      hanoi($n-1, $extra, $end, $start);
   }
}

Move disk #1 from A to C.
Move disk #2 from A to B.
...
Move disk #1 from B to A.
Move disk #2 from B to C.
Move disk #1 from A to C.