diff options
| -rw-r--r-- | AoC2022/22/solver.lisp | 12 |
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) |