Anonymous user
Find limit of recursion: Difference between revisions
m
no edit summary
(Add PL/I - limit on z/OS is pretty deep compared to others :)) |
mNo edit summary |
||
Line 598:
dcl mod builtin;
dcl ri fixed bin(31) init (0);
recursive: proc recursive;
ri += 1;
if mod(ri, 1024) = 1 then
put data(ri);
call recursive();
end recursive;
call recursive();
end recurs;
</lang>
| |||