1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(use-package :clunit)
(defsuite 05/aoc (aoc))
(defvar 05/default-input
'("0,9 -> 5,9"
"8,0 -> 0,8"
"9,4 -> 3,4"
"2,2 -> 2,1"
"7,0 -> 7,4"
"6,4 -> 2,0"
"0,9 -> 2,9"
"3,4 -> 1,4"
"0,0 -> 8,8"
"5,5 -> 8,2"))
(deftest 05/test-ex-a (05/aoc)
(let ((result (05/part-a (05/parse-input-direct 05/default-input))))
(assert-equalp 5 result)))
(deftest 05/test-ex-b (05/aoc)
(let ((result (05/part-b (05/parse-input-direct 05/default-input))))
(assert-equalp 12 result)))
(deftest 05/test-a (05/aoc)
(let ((result (05/part-a (05/parse-input "inputs/05.txt"))))
(assert-equalp 7380 result)))
(deftest 05/test-b (05/aoc)
(let ((result (05/part-b (05/parse-input "inputs/05.txt"))))
(assert-equalp 21373 result)))
(defun 05/run-tests () (run-suite '05/aoc))
|
