RosettaCodeData/Task/Currying/Common-Lisp/currying-1.lisp
2015-02-20 09:02:09 -05:00

3 lines
108 B
Common Lisp

(defun curry (function &rest args-1)
(lambda (&rest args-2)
(apply function (append args-1 args-2))))