CL-USER> (defun curry (fn &rest args)
#'(lambda (&rest args2)
(apply fn (append args2 args))))
CURRY
CL-USER> (funcall (curry #'+ 3) 5)
8
뭐 compose와 disjoin을 이해했다면 curry 따위쯤은 언급할 가치도 없겠다. 그나저나 대체 lexical closure 없이 어떻게 지금까지 프로그래밍을 했던건가-_-..
덧글