giving up for rest of AoC 2022
This commit is contained in:
parent
f2c18830c2
commit
61abf66381
|
@ -204,3 +204,26 @@
|
||||||
(apply #'calc-password (walk-path "day22-path.txt" "day22-map.txt"))
|
(apply #'calc-password (walk-path "day22-path.txt" "day22-map.txt"))
|
||||||
;; 11464
|
;; 11464
|
||||||
;; and one gold star.
|
;; 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
|
||||||
|
|
|
@ -28,7 +28,7 @@
|
||||||
do (let ((line (make-array (array-dimension arr 1)
|
do (let ((line (make-array (array-dimension arr 1)
|
||||||
:displaced-to arr
|
:displaced-to arr
|
||||||
:displaced-index-offset (* row (array-dimension arr 1)))))
|
:displaced-index-offset (* row (array-dimension arr 1)))))
|
||||||
;; (format t "~a~%" (coerce line 'string))
|
(format t "~a~%" (coerce line 'string))
|
||||||
)))
|
)))
|
||||||
|
|
||||||
(defconstant *movements*
|
(defconstant *movements*
|
||||||
|
|
Loading…
Reference in New Issue