Just another update

Task/First-class-functions/AppleScript/first-class-functions.applescript

@@ -0,0 +1,56 @@
+-- Compose two functions, where each function is
+-- a script object with a call(x) handler.
+on compose(f, g)
+	script
+		on call(x)
+			f's call(g's call(x))
+		end call
+	end script
+end compose
+
+script increment
+	on call(n)
+		n + 1
+	end call
+end script
+
+script decrement
+	on call(n)
+		n - 1
+	end call
+end script
+
+script twice
+	on call(x)
+		x * 2
+	end call
+end script
+
+script half
+	on call(x)
+		x / 2
+	end call
+end script
+
+script cube
+	on call(x)
+		x ^ 3
+	end call
+end script
+
+script cuberoot
+	on call(x)
+		x ^ (1 / 3)
+	end call
+end script
+
+set functions to {increment, twice, cube}
+set inverses to {decrement, half, cuberoot}
+set answers to {}
+repeat with i from 1 to 3
+	set end of answers to ¬
+		compose(item i of inverses, ¬
+			item i of functions)'s ¬
+		call(0.5)
+end repeat
+answers -- Result: {0.5, 0.5, 0.5}