Data commit

Task/Find-limit-of-recursion/VBScript/find-limit-of-recursion-1.vb

@@ -0,0 +1,13 @@
+'mung.vbs
+option explicit
+
+dim c
+if wscript.arguments.count = 1 then
+	c = wscript.arguments(0)
+	c = c + 1
+else
+	c = 0
+end if
+wscript.echo "[Depth",c & "] Mung until no good."
+CreateObject("WScript.Shell").Run "cscript Mung.vbs " & c, 1, true
+wscript.echo "[Depth",c & "] no good."

Task/Find-limit-of-recursion/VBScript/find-limit-of-recursion-2.vb

@@ -0,0 +1,14 @@
+'mung.vbs
+option explicit
+
+sub mung(c)
+	dim n
+	n=c+1
+	wscript.echo "[Level",n & "] Mung until no good"
+	on error resume next
+	mung n
+	on error goto 0
+	wscript.echo "[Level",n & "] no good"
+end sub
+
+mung 0