RosettaCodeData/Task/Function-composition/Common-Lisp/function-composition-3.lisp
2023-07-01 13:44:08 -04:00

2 lines
75 B
Common Lisp

(defun compose (f g)
(eval `(lambda (x) (funcall ',f (funcall ',g x)))))