RosettaCodeData/Task/Function-composition/Common-Lisp/function-composition-3.lisp

3 lines
75 B
Common Lisp
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defun compose (f g)
2019-09-12 10:33:56 -07:00
(eval `(lambda (x) (funcall ',f (funcall ',g x)))))