Data commit

Task/Function-composition/AppleScript/function-composition-1.applescript

@@ -0,0 +1,24 @@
+-- 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 sqrt
+    on call(x)
+        x ^ 0.5
+    end call
+end script
+
+script twice
+    on call(x)
+        2 * x
+    end call
+end script
+
+compose(sqrt, twice)'s call(32)
+-- Result: 8.0