From 61abf663810d101dced382f61bab6a767d023c62 Mon Sep 17 00:00:00 2001
From: efim <efim.nefedov@nordigy.ru>
Date: Sat, 31 Dec 2022 15:33:45 +0000
Subject: [PATCH] giving up for rest of AoC 2022

---
 day22-scratch.lisp | 23 +++++++++++++++++++++++
 day22.lisp         |  2 +-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/day22-scratch.lisp b/day22-scratch.lisp
index cd91bf7..24ec039 100644
--- a/day22-scratch.lisp
+++ b/day22-scratch.lisp
@@ -204,3 +204,26 @@
 (apply #'calc-password (walk-path "day22-path.txt" "day22-map.txt"))
 ;; 11464
 ;; and one gold star.
+
+;;; and PART 2.
+;; then neighbors is different
+;; especially the wrap thing.
+;; how'd i calc that? for the map? ugh
+
+;; so, it's 6 parts. huh. ugh
+;; oh, they're oblong, but they are all 4 by 4
+
+
+
+;;  XX
+;;  X
+;; XX
+;; X
+
+;; outline of my input
+;; how do i get freaking folding?
+;; ugh.
+;; maybe go for the next? um.
+
+;; yeah. i'm giving up for now. let's go to rest for the new years. 19:33 of Dec 31st
+;; fare well Common Lisp, I'll return to use in Q2 or Q3
diff --git a/day22.lisp b/day22.lisp
index 191adb5..46a8553 100644
--- a/day22.lisp
+++ b/day22.lisp
@@ -28,7 +28,7 @@
         do (let ((line (make-array (array-dimension arr 1)
                                    :displaced-to arr
                                    :displaced-index-offset (* row (array-dimension arr 1)))))
-             ;; (format t "~a~%" (coerce line 'string))
+             (format t "~a~%" (coerce line 'string))
              )))
 
 (defconstant *movements*