Anonymous recursion: Difference between revisions
Content added Content deleted
m (BaCon, BASIC256, and BBC BASIC moved to the BASIC section.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36, explicit :prototype) |
||
| Line 2,304: | Line 2,304: | ||
{{trans|PicoLisp}} |
{{trans|PicoLisp}} |
||
<code>recur</code> isn't built into Perl, but it's easy to implement. |
<code>recur</code> isn't built into Perl, but it's easy to implement. |
||
<syntaxhighlight lang="perl">sub recur (&@) { |
<syntaxhighlight lang="perl">sub recur :prototype(&@) { |
||
my $f = shift; |
my $f = shift; |
||
local *recurse = $f; |
local *recurse = $f; |
||