RosettaCodeData/Task/Function-composition/LFE/function-composition-2.lfe
2023-07-01 13:44:08 -04:00

13 lines
316 B
Text

> (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
>