diff options
Diffstat (limited to 'AoC2022/05/solver.el')
| -rw-r--r-- | AoC2022/05/solver.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/AoC2022/05/solver.el b/AoC2022/05/solver.el index edcd7cc..ed42bb2 100644 --- a/AoC2022/05/solver.el +++ b/AoC2022/05/solver.el @@ -23,7 +23,7 @@ (stacks (make-vector stacks-len nil)) next) (while (setq next (search-backward "]" nil t)) - (push (intern (string (char-before))) + (push (char-before) (aref stacks (/ (- next (line-beginning-position) 1) 4)))) stacks)) @@ -52,12 +52,12 @@ (thread-last (solver-build-stacks) (solver-apply-moves execution) - (seq-map #'car)))) + (cl-map 'string #'car)))) (ert-deftest solver-solutions () - (should (equal '(T P G V Q P F D H) + (should (equal "TPGVQPFDH" (solver #'solver-single-move!))) - (should (equal '(D M R D F R H H H) + (should (equal "DMRDFRHHH" (solver #'solver-bulk-move!)))) |