aboutsummaryrefslogtreecommitdiffstats
path: root/AoC2022/12/solver.el
diff options
context:
space:
mode:
authorOscar Najera <hi@oscarnajera.com>2022-12-13 01:14:57 +0100
committerOscar Najera <hi@oscarnajera.com>2022-12-13 01:14:57 +0100
commit357ed0ec071a5a6c7f7cb038b558b50b99685f1c (patch)
tree50c94b819e2cc913b7b23c1cb9cad77ab88a0037 /AoC2022/12/solver.el
parentaa8ad40501c84d5511911339a4daf0a7ea85bbe9 (diff)
downloadscratch-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.el3
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)