langs a-z

Task/Function-composition/VBScript/function-composition-1.vbscript

@@ -0,0 +1,18 @@
+option explicit
+class closure
+
+	private composition
+	
+	sub compose( f1, f2 )
+		composition = f2 & "(" & f1 & "(p1))"
+	end sub
+	
+	public default function apply( p1 )
+		apply = eval( composition )
+	end function
+	
+	public property get formula
+		formula = composition
+	end property
+	
+end class

Task/Function-composition/VBScript/function-composition-2.vbscript

@@ -0,0 +1,26 @@
+dim c
+set c = new closure
+
+c.compose "ucase", "lcase"
+wscript.echo c.formula
+wscript.echo c("dog")
+
+c.compose "log", "exp"
+wscript.echo c.formula
+wscript.echo c(12.3)
+
+function inc( n )
+	inc = n + 1
+end function
+
+c.compose "inc", "inc"
+wscript.echo c.formula
+wscript.echo c(12.3)
+
+function twice( n )
+	twice = n * 2
+end function
+
+c.compose "twice", "inc"
+wscript.echo c.formula
+wscript.echo c(12.3)