8 lines
148 B
EmacsLisp
8 lines
148 B
EmacsLisp
|
;; lexical-binding: t
|
||
|
|
(defun compose (f g)
|
||
|
|
(lambda (x)
|
||
|
|
(funcall f (funcall g x))))
|
||
|
|
|
||
|
|
(let ((func (compose '1+ '1+)))
|
||
|
|
(funcall func 5)) ;=> 7
|