2024/util.lisp


1
2
3
4
5
6
7
8
9
10
11

(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)))