Help for this page
#!/usr/bin/perl sub a{my$l=pop;a(@_[0,2,1],--$l)."Move disc $l from $_[0] to $_[2] ".a(@_[1,0,2],$l)if$l>0;}print a('A'..'C',shift);
www.com | www.net | www.org
No recent polls found
