| Public Scratchpad | Download, Select Code To D/L |
Tower of Hanoi. Goal: least number of chars possible while preserving the whole line being printed.
#!/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);