Find limit of recursion: Difference between revisions
Content added Content deleted
(Added Oz.) |
(Forth) |
||
Line 102: | Line 102: | ||
Through execution (with Mono), another user has reached 697186. |
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}}== |
=={{header|Fortran}}== |