1 files changed, 11 insertions, 0 deletions
diff --git a/2024/util.lisp b/2024/util.lisp
new file mode 100644
index 0000000..f9b1d86
--- /dev/null
+++ b/2024/util.lisp
@@ -0,0 +1,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)))