blob: 2b00ab8b16b2a947b13bbf98de4a7e2d87ce5b57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(use-package :clunit)
(defsuite 06/aoc (aoc))
(defvar 06/default-input '("3,4,3,1,2"))
(deftest 06/test-ex-a (06/aoc)
(let ((result (06/part-a (06/parse-input-direct 06/default-input))))
(assert-equalp 5934 result)))
(deftest 06/test-ex-b (06/aoc)
(let ((result (06/part-b (06/parse-input-direct 06/default-input))))
(assert-equalp 26984457539 result)))
(deftest 06/test-a (06/aoc)
(let ((result (06/part-a (06/parse-input "inputs/06.txt"))))
(assert-equalp 372300 result)))
(deftest 06/test-b (06/aoc)
(let ((result (06/part-b (06/parse-input "inputs/06.txt"))))
(assert-equalp 1675781200288 result)))
(defun 06/run-tests () (run-suite '06/aoc))
|
