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
38
39
40
41
42
|
(use-package :clunit)
(defsuite 04/aoc (aoc))
(defvar 04/default-input
'("7,4,9,5,11,17,23,2,0,14,21,24,10,16,13,6,15,25,12,22,18,20,8,19,3,26,1"
""
"22 13 17 11 0"
" 8 2 23 4 24"
"21 9 14 16 7"
" 6 10 3 18 5"
" 1 12 20 15 19"
""
" 3 15 0 2 22"
" 9 18 13 17 5"
"19 8 7 25 23"
"20 11 10 24 4"
"14 21 16 12 6"
""
"14 21 17 24 4"
"10 16 15 9 19"
"18 8 23 26 20"
"22 11 13 6 5"
" 2 0 12 3 7"))
(deftest 04/test-ex-a (04/aoc)
(let ((result (04/part-a (04/parse-input-direct 04/default-input))))
(assert-equalp 4512 result)))
(deftest 04/test-ex-b (04/aoc)
(let ((result (04/part-b (04/parse-input-direct 04/default-input))))
(assert-equalp 0 result)))
(deftest 04/test-a (04/aoc)
(let ((result (04/part-a (04/parse-input "inputs/04.txt"))))
(assert-equalp 0 result)))
(deftest 04/test-b (04/aoc)
(let ((result (04/part-b (04/parse-input "inputs/04.txt"))))
(assert-equalp 0 result)))
(defun 04/run-tests () (run-suite '04/aoc))
|