From db2ef41d1980d6402d40b13c29880467223290dc Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Tue, 17 Oct 2023 20:07:34 +0100 Subject: Started puzzle-8 --- 2022/puzzle-8.lisp | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 2022/puzzle-8.lisp (limited to '2022') diff --git a/2022/puzzle-8.lisp b/2022/puzzle-8.lisp new file mode 100644 index 0000000..426ae13 --- /dev/null +++ b/2022/puzzle-8.lisp @@ -0,0 +1,7 @@ +(load "lib") +(defparameter input (uiop:read-file-string "8-input")) +(defparameter lines (get-lines input)) +;; Just converts every line into a sequence of integral digits +(defparameter trees + (mapcar (lambda (line) (mapcar (lambda (char) (parse-integer (string char))) (string-to-clist line))) + lines)) -- cgit v1.2.3-13-gbd6f