aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOscar Najera <hi@oscarnajera.com>2023-01-16 01:31:30 +0100
committerOscar Najera <hi@oscarnajera.com>2023-01-16 01:48:07 +0100
commit4c42cc4977e43ba1f6d9a1d184d8812a5653542d (patch)
tree4f2d1a740192c8c4f932f3a733e38c965a0bdfae
parentf63d22c9e7e75332b9cc01d122a9138673e88801 (diff)
downloadscratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.tar.gz
scratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.tar.bz2
scratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.zip
some simplification
-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)