12 lines
267 B
Common Lisp
12 lines
267 B
Common Lisp
(defmacro --> (first &rest functions)
|
|
(if (null functions)
|
|
first
|
|
`(let* ,(loop :for f :in (cons first functions)
|
|
appending `((_ ,f)))
|
|
_)))
|
|
|
|
(defun zip (a b)
|
|
(loop for i in a
|
|
for j in b
|
|
collect (cons i j)))
|