RosettaCodeData/Task/Currying/Common-Lisp/currying-1.lisp
2023-07-01 13:44:08 -04:00

3 lines
108 B
Common Lisp

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