Data commit

Task/Function-composition/LFE/function-composition-1.lfe

@@ -0,0 +1,16 @@
+(defun compose (f g)
+  (lambda (x)
+    (funcall f
+      (funcall g x))))
+
+(defun compose (funcs)
+  (lists:foldl #'compose/2
+               (lambda (x) x)
+               funcs))
+
+(defun check ()
+  (let* ((sin-asin (compose #'math:sin/1 #'math:asin/1))
+         (expected (math:sin (math:asin 0.5)))
+         (compose-result (funcall sin-asin 0.5)))
+    (io:format '"Expected answer: ~p~n" (list expected))
+    (io:format '"Answer with compose: ~p~n" (list compose-result))))

Task/Function-composition/LFE/function-composition-2.lfe

@@ -0,0 +1,13 @@
+> (funcall (compose #'math:sin/1 #'math:asin/1)
+           0.5)
+0.49999999999999994
+> (funcall (compose `(,#'math:sin/1
+                      ,#'math:asin/1
+                      ,(lambda (x) (+ x 1))))
+           0.5)
+1.5
+> (check)
+Expected answer: 0.49999999999999994
+Answer with compose: 0.49999999999999994
+ok
+>