Find limit of recursion: Difference between revisions
→{{header|Perl 6}}: Added perl 6
mNo edit summary |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Added perl 6) |
||
Line 560:
<lang>dive(n) = dive(n+1)
dive(0)</lang>
=={{header|Perl6}}==
Maximum recursion in Perl 6 is implementation dependent and subject to change as development proceeds.
Currently using Rakudo 2011.01
<lang perl6>my $x = 0;
recurse $x;
sub recurse ($x is rw) {
say ++$x;
recurse $x;
}</lang>
Yields:
<pre>
1
2
...
...
971
972
maximum recursion depth exceeded
</pre>
=={{header|PicoLisp}}==
| |||