Data update

Task/Apply-a-callback-to-an-array/VBScript/apply-a-callback-to-an-array-1.vb

@@ -1,16 +0,0 @@
-class callback
-	dim sRule
-
-	public property let rule( x )
-		sRule = x
-	end property
-	
-	public default function applyTo(a)
-		dim p1
-		for i = lbound( a ) to ubound( a )
-			p1 = a( i )
-			a( i ) = eval( sRule )
-		next
-		applyTo = a
-	end function
-end class

Task/Apply-a-callback-to-an-array/VBScript/apply-a-callback-to-an-array-2.vb

@@ -1,13 +0,0 @@
-dim a1
-dim cb
-set cb = new callback
-
-cb.rule = "ucase(p1)"
-a1 = split("my dog has fleas", " " )
-cb.applyTo a1
-wscript.echo join( a1, " " )
-
-cb.rule = "p1 ^ p1"
-a1 = array(1,2,3,4,5,6,7,8,9,10)
-cb.applyto a1
-wscript.echo join( a1, ", " )