Anonymous user
Find limit of recursion: Difference between revisions
m
→{{header|Ada}}: whitespace
(COBOL) |
m (→{{header|Ada}}: whitespace) |
||
Line 2:
=={{header|Ada}}==
<lang Ada>with Ada.Text_IO; use Ada.Text_IO;
procedure Test_Recursion_Depth is
Line 15 ⟶ 14:
begin
Put_Line ("Recursion depth on this system is" & Integer'Image (Recursion (1)));
end Test_Recursion_Depth;</lang>
Note that unlike some solutions in other languages this one does not crash (though usefulness of this task is doubtful).
| |||