Data update

Task/Amb/VBScript/amb-1.vb

@@ -1,11 +0,0 @@
-class ambiguous
-	dim sRule
-
-	public property let rule( x )
-		sRule = x
-	end property
-	
-	public default function amb(p1, p2)
-		amb = eval(sRule)
-	end function
-end class

Task/Amb/VBScript/amb-2.vb

@@ -1,17 +0,0 @@
-dim amb
-set amb = new ambiguous
-
-amb.rule = "right(p1,1)=left(p2,1)"
-
-dim w1, w2, w3, w4
-for each w1 in split("the that a", " ")
-	for each w2 in split("frog elephant thing", " ")
-		for each w3 in split("walked treaded grows", " ")
-			for each w4 in split("slowly quickly", " ")
-				if amb(w1, w2) and amb(w2, w3) and amb(w3, w4) then
-					wscript.echo w1, w2, w3, w4
-				end if
-			next
-		next
-	next
-next