aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Function-composition/Emacs-Lisp/function-composition-1.l Normal file
View file

@ -0,0 +1,7 @@
(defun compose (f g)
`(lambda (x) (,f (,g x))))
(let ((func (compose '1+ '1+)))
(funcall func 5))
=>
7

7
Task/Function-composition/Emacs-Lisp/function-composition-2.l Normal file
View file

@ -0,0 +1,7 @@
(defmacro compose (f g)
`(lambda (x) (,f (,g x))))
(let ((func (compose 1+ 1+)))
(funcall func 5))
=>
7

11
Task/Function-composition/Emacs-Lisp/function-composition-3.l Normal file
View file

@ -0,0 +1,11 @@
(eval-when-compile (require 'cl)) ;; for `lexical-let' macro
(defun compose (f g)
(lexical-let ((f f)
(g g))
(lambda (x)
(funcall f (funcall g x)))))
(let ((func (compose '1+ '1+)))
(funcall func 5))
=>
7