Towers of Hanoi: Difference between revisions

m
Line 545:
 
=={{header|Perl}}==
<lang perl> sub move {
my ($n, $from, $to, $via) = @_;
Line 555:
move($n - 1, $via, $to, $from);
};
};</lang>
 
=={{header|PHP}}==