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 | |
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
-rw-r--r-- | 2022/lib.lisp | 28 | ||||
-rw-r--r-- | 2022/puzzle-2.lisp | 3 | ||||
-rw-r--r-- | 2022/puzzle-3.lisp | 4 |
3 files changed, 31 insertions, 4 deletions
diff --git a/2022/lib.lisp b/2022/lib.lisp new file mode 100644 index 0000000..b6fa70f --- /dev/null +++ b/2022/lib.lisp @@ -0,0 +1,28 @@ +(defun string-to-clist (str) + (coerce str 'list)) + +(defun clist-to-string (clist) + (if (atom clist) + (string clist) + (coerce clist 'string))) + +(defun split-by (lst delim) + "Splits LST by the first instance of DELIM" + (let ((pos (position delim lst))) + (if pos + (cons (subseq lst 0 pos) (list (subseq lst (+ pos 1)))) + (error (format nil "No instance of ~a was found in ~a" delim lst))))) + +(defun split-completely (lst delim) + (if (or (null lst) (not (cdr lst))) + (cons (list (car lst)) nil) + (if (member delim lst) + (destructuring-bind (first rest) (split-by lst delim) + (cons first (split-completely rest delim))) + (list lst)))) + +(defun get-lines (input-string) + (with-input-from-string (s input-string) + (loop for line = (read-line s nil) + while line + collect line))) diff --git a/2022/puzzle-2.lisp b/2022/puzzle-2.lisp index a17fdb2..d91795a 100644 --- a/2022/puzzle-2.lisp +++ b/2022/puzzle-2.lisp @@ -16,7 +16,8 @@ collect (let ((opponent (subseq strategy 0 1)) (yours (subseq strategy 2 3))) - (list (sensible-convert-input opponent) (sensible-convert-input yours)))))) + (list (sensible-convert-input opponent) + (sensible-convert-input yours)))))) (loop for round in rounds 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) |