Towers of Hanoi: Difference between revisions
Content added Content deleted
m (→{{header|Pascal}}: lang tag) |
m (→{{header|Perl}}: lang) |
||
| Line 545: | Line 545: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
<lang perl> sub move { |
|||
my ($n, $from, $to, $via) = @_; |
my ($n, $from, $to, $via) = @_; |
||
| Line 555: | Line 555: | ||
move($n - 1, $via, $to, $from); |
move($n - 1, $via, $to, $from); |
||
}; |
}; |
||
}; |
};</lang> |
||
=={{header|PHP}}== |
=={{header|PHP}}== |
||