Data commit

Task/Function-composition/Scheme/function-composition-1.ss

@@ -0,0 +1,14 @@
+(define (compose f g) (lambda (x) (f (g x))))
+
+;; or:
+
+(define ((compose f g) x) (f (g x)))
+
+;; or to compose an arbitrary list of 1 argument functions:
+
+(define-syntax compose
+  (lambda (x)
+    (syntax-case x ()
+      ((_) #'(lambda (y) y))
+      ((_ f) #'f)
+      ((_ f g h ...)  #'(lambda (y) (f ((compose g h ...) y)))))))

Task/Function-composition/Scheme/function-composition-2.ss

@@ -0,0 +1,2 @@
+(display ((compose sin asin) 0.5))
+(newline)

Task/Function-composition/Scheme/function-composition-3.ss

@@ -0,0 +1 @@
+0.5