Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Recursion: the Towers of Hanoi problem

by abitkin (Monk)
on Oct 20, 2004 at 16:52 UTC ( #400916=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    han('A','B','C',$ARGV[0]);
    ...
        print "Move disc $_[3] from $_[0] to $_[2]\n";
        han($_[1],$_[0],$_[2],$_[3]-1);
    }