Belated 2024 first puzzle solution

2024-12-02 00:07:05 +00:00
parent 3784d148c7
commit 1ddc695cb9
2 changed files with 26 additions and 0 deletions
--- a/2024/util.lisp
+++ 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)))