From 1ddc695cb9e0c0d8dfe87ade4981142155cd91bf Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 2 Dec 2024 00:07:05 +0000 Subject: Belated 2024 first puzzle solution --- 2024/util.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 2024/util.lisp (limited to '2024/util.lisp') 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))) -- cgit v1.2.3-13-gbd6f