diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2023-01-16 01:31:30 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2023-01-16 01:48:07 +0100 |
| commit | 4c42cc4977e43ba1f6d9a1d184d8812a5653542d (patch) | |
| tree | 4f2d1a740192c8c4f932f3a733e38c965a0bdfae /AoC2022 | |
| parent | f63d22c9e7e75332b9cc01d122a9138673e88801 (diff) | |
| download | scratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.tar.gz scratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.tar.bz2 scratch-4c42cc4977e43ba1f6d9a1d184d8812a5653542d.zip | |
some simplification
Diffstat (limited to 'AoC2022')
| -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) |