A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Find-limit-of-recursion/DWScript/find-limit-of-recursion.dwscript
+++ b/Task/Find-limit-of-recursion/DWScript/find-limit-of-recursion.dwscript
@ -0,0 +1,14 @@
+var level : Integer;
+
+procedure Recursive;
+begin
+   Inc(level);
+   try
+      Recursive;
+   except
+   end;
+end;
+
+Recursive;
+
+Println('Recursion Level is ' + IntToStr(level));