Anonymous user
Find limit of recursion: Difference between revisions
Forth
(Added Oz.) |
(Forth) |
||
Line 102:
Through execution (with Mono), another user has reached 697186.
=={{header|Forth}}==
<lang forth>: munge ( d -- d ) 1+ recurse ;
: test 0 ['] munge catch if ." Recursion limit at depth " . then ;
test / Default gforth: Recursion limit at depth 3817</lang>
=={{header|Fortran}}==
| |||