Anonymous user
Find limit of recursion: Difference between revisions
Adding MUMPS example
(→{{header|PureBasic}}: Added additional Procedural description) |
(Adding MUMPS example) |
||
Line 271:
2500</lang>
=={{header|MUMPS}}==
<lang MUMPS>RECURSE
IF $DATA(DEPTH)=1 SET DEPTH=1+DEPTH
IF $DATA(DEPTH)=0 SET DEPTH=1
WRITE !,DEPTH_" levels down"
DO RECURSE
QUIT</lang>
End of the run ...<pre>
1918 levels down
1919 levels down
1920 levels down
DO RECURSE
^
<FRAMESTACK>RECURSE+4^ROSETTA
USER 72d0>
</pre>
=={{header|OCaml}}==
| |||