7 lines
108 B
Common Lisp
7 lines
108 B
Common Lisp
(defun compose (f g)
|
|
`(lambda (x) (,f (,g x))))
|
|
|
|
(let ((func (compose '1+ '1+)))
|
|
(funcall func 5))
|
|
=>
|
|
7
|