diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2023-10-17 14:12:46 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2023-10-17 14:14:38 +0100 |
commit | d3ed2f503e58c604bb85dc3487fda3d1191313b4 (patch) | |
tree | b38ceedc940e8cbd1ab8bddfa6bc7a059ed553eb /2022/puzzle-3.lisp | |
parent | 14f428b3a38d0fb1a04de13055e08fc2a4536397 (diff) | |
download | advent-of-code-d3ed2f503e58c604bb85dc3487fda3d1191313b4.tar.gz advent-of-code-d3ed2f503e58c604bb85dc3487fda3d1191313b4.tar.bz2 advent-of-code-d3ed2f503e58c604bb85dc3487fda3d1191313b4.zip |
Version control lib.lisp
Diffstat (limited to '2022/puzzle-3.lisp')
-rw-r--r-- | 2022/puzzle-3.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/2022/puzzle-3.lisp b/2022/puzzle-3.lisp index e2e17cc..56a31b6 100644 --- a/2022/puzzle-3.lisp +++ b/2022/puzzle-3.lisp @@ -1,3 +1,4 @@ +(load "lib.lisp") (defvar input (uiop:read-file-string "3-input")) (defun split-string-in-two (s) @@ -10,9 +11,6 @@ until (null line) collect (split-string-in-two line)))) -(defun string-to-clist (str) - (loop for char across str collect char)) - (defun common-types (s1 s2) (car (intersection (string-to-clist s1) |