Data update

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

@@ -1,13 +0,0 @@
-'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

@@ -1,14 +0,0 @@
-'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