blob: 000ece8f77b10045db0a459f539e564416e0716d (
plain)
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
34
35
36
37
|
(use-package :clunit)
(defsuite 03/aoc (aoc))
(defvar 03/default-input nil)
(setf 03/default-input
'("00100"
"11110"
"10110"
"10111"
"10101"
"01111"
"00111"
"11100"
"10000"
"11001"
"00010"
"01010"))
(deftest 03/test-ex-a (03/aoc)
(let ((result (03/part-a (03/parse-input-direct 03/default-input))))
(assert-equalp 198 result)))
(deftest 03/test-ex-b (03/aoc)
(let ((result (03/part-b (03/parse-input-direct 03/default-input))))
(assert-equalp 230 result)))
(deftest 03/test-a (03/aoc)
(let ((result (03/part-a (03/parse-input "inputs/03.txt"))))
(assert-equalp 3912944 result)))
(deftest 03/test-b (03/aoc)
(let ((result (03/part-b (03/parse-input "inputs/03.txt"))))
(assert-equalp 4996233 result)))
(defun 03/run-tests () (run-suite '03/aoc))
|
