From 4c42cc4977e43ba1f6d9a1d184d8812a5653542d Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Mon, 16 Jan 2023 01:31:30 +0100 Subject: some simplification --- AoC2022/22/solver.lisp | 12 ++++++------ 1 file 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) -- cgit v1.2.3