Select Code to Download

(disk): (peg from) -> (peg to)

$ ./hanoi.pl 3 3
1: A -> B
...
1: C -> A
2: C -> B
1: A -> B

#! /usr/bin/perl -w
use strict;
...

Ben Tilly (tilly on perlmonks)