aboutsummaryrefslogtreecommitdiffstats
path: root/AoC2022/22
diff options
context:
space:
mode:
Diffstat (limited to 'AoC2022/22')
-rw-r--r--AoC2022/22/solver.lisp12
1 files changed, 6 insertions, 6 deletions
diff --git a/AoC2022/22/solver.lisp b/AoC2022/22/solver.lisp
index d0d99e2..362c017 100644
--- a/AoC2022/22/solver.lisp
+++ b/AoC2022/22/solver.lisp
@@ -156,33 +156,33 @@
(ecase face
(1 (case direction
(> (list 6 '< (compose #'rot-cw #'rot-cw #'cross-x)))
- (v (list 4 'v #'cross-y))
(< (list 3 'v (compose #'rot-ccw #'cross-x)))
+ (v (list 4 'v #'cross-y))
(^ (list 2 'v (compose #'rot-cw #'rot-cw #'cross-y)))))
(2 (case direction
(> (list 3 '> #'cross-x))
+ (< (list 6 '^ (compose #'rot-cw #'cross-x)))
(v (list 5 '^ (compose #'rot-ccw #'rot-ccw #'cross-y)))
- (< (list 6 '^ (compose #'rot-ccw #'rot-ccw #'rot-ccw #'cross-x)))
(^ (list 1 'v (compose #'rot-cw #'rot-cw #'cross-y)))))
(3 (case direction
(> (list 4 '> #'cross-x))
- (v (list 5 '> (compose #'rot-ccw #'cross-y)))
(< (list 2 '< #'cross-x))
+ (v (list 5 '> (compose #'rot-ccw #'cross-y)))
(^ (list 1 '> (compose #'rot-cw #'cross-y)))))
(4 (case direction
(> (list 6 'v (compose #'rot-cw #'cross-x)))
- (v (list 5 'v #'cross-y))
(< (list 3 '< #'cross-x))
+ (v (list 5 'v #'cross-y))
(^ (list 1 '^ #'cross-y))))
(5 (case direction
(> (list 6 '> #'cross-x))
- (v (list 2 '^ (compose #'rot-cw #'rot-cw #'cross-y)))
(< (list 3 '^ (compose #'rot-cw #'cross-x)))
+ (v (list 2 '^ (compose #'rot-cw #'rot-cw #'cross-y)))
(^ (list 4 '^ #'cross-y))))
(6 (case direction
(> (list 1 '< (compose #'rot-ccw #'rot-ccw #'cross-x)))
- (v (list 2 '> (compose #'rot-cw #'rot-cw #'rot-cw #'cross-y)))
(< (list 5 '< #'cross-x))
+ (v (list 2 '> (compose #'rot-ccw #'cross-y)))
(^ (list 4 '< (compose #'rot-ccw #'cross-y))))))))
(defun cube-step (state face-length)