RosettaCodeData/Task/Currying/LFE/currying-1.lfe

5 lines
70 B
Plaintext

(defun curry (f arg)
(lambda (x)
(apply f
(list arg x))))