diff options
author | Oscar Najera <hi@oscarnajera.com> | 2022-12-13 01:14:57 +0100 |
---|---|---|
committer | Oscar Najera <hi@oscarnajera.com> | 2022-12-13 01:14:57 +0100 |
commit | 357ed0ec071a5a6c7f7cb038b558b50b99685f1c (patch) | |
tree | 50c94b819e2cc913b7b23c1cb9cad77ab88a0037 /AoC2022/12/solver.el | |
parent | aa8ad40501c84d5511911339a4daf0a7ea85bbe9 (diff) | |
download | scratch-357ed0ec071a5a6c7f7cb038b558b50b99685f1c.tar.gz scratch-357ed0ec071a5a6c7f7cb038b558b50b99685f1c.tar.bz2 scratch-357ed0ec071a5a6c7f7cb038b558b50b99685f1c.zip |
Solve in LISP
Diffstat (limited to 'AoC2022/12/solver.el')
-rw-r--r-- | AoC2022/12/solver.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/AoC2022/12/solver.el b/AoC2022/12/solver.el index bb5749a..580cc1d 100644 --- a/AoC2022/12/solver.el +++ b/AoC2022/12/solver.el @@ -37,7 +37,8 @@ (ert-deftest test-directions () (should (equal (solver-directions 6 (land--create :width 5 :height 5)) '(7 11 5 1))) - (should (equal (solver-directions 0 (land--create :width 5 :height 5)) '(1 5)))) + (should (equal (solver-directions 0 (land--create :width 5 :height 5)) '(1 5))) + (should (equal (solver-directions 1 (land--create :width 8 :height 5)) '(2 9 0)))) (defun solver-land (data) (cl-map 'string (lambda (chr) |