Find limit of recursion: Difference between revisions

Added DWScript
(Added DWScript)
Line 373:
Output:
<pre>Recursion Level is 28781</pre>
 
=={{header|DWScript}}==
 
Recursion limit is a parameter of script execution, which can be specified independently from the stack size to limit execution complexity.
 
<lang delphi>var level : Integer;
 
procedure Recursive;
begin
Inc(level);
try
Recursive;
except
end;
end;
 
Recursive;
 
Println('Recursion Level is ' + IntToStr(level));</lang>
 
=={{header|E}}==
Anonymous user