Anonymous user
Function composition: Difference between revisions
Added LFE example
(Added LFE example) |
|||
Line 813:
sin_asin 0.5
0.5</lang>
=={{header|LFE}}==
<lang lisp>
(defmodule compose
(export all)
(import
(from math (sin 1) (asin 1)))
(import
(from io (format 2))))
(defun compose (f g)
(lambda (x)
(funcall f
(funcall g x))))
(defun check ()
(let* ((sin-asin (compose #'sin/1 #'asin/1))
(expected (sin (asin 0.5)))
(compose-result (funcall sin-asin 0.5)))
(format '"Expected answer: ~p~n" (list expected))
(format '"Answer with compose: ~p~n" (list compose-result))))
</lang>
Running the code:
<lang lisp>
> (slurp '"compose.lfe")
#(ok compose)
> (check)
Expected answer: 0.49999999999999994
Answer with compose: 0.49999999999999994
ok
>
</lang>
=={{header|LOLCODE}}==
| |||