Find limit of recursion: Difference between revisions

=={{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>