Select Code to Download

sub hanoi {
    my ($n, $a, $b, $c) = @_;
...
   The final 'return' allows for a slight
   tail-call optimization

##
# hanoi n a b c
...
$ hanoi(8, "A", "B", "C")
=> 2^8 - 1 moves