blob: 46bb1b587b7432c60f5ad8f95ed3047e3f325db8 (
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
38
|
(use-package :clunit)
(defsuite 01/aoc (aoc))
(defvar 01/default-input nil)
(setf 01/default-input
'("199"
"200"
"208"
"210"
"200"
"207"
"240"
"269"
"260"
"263"))
;;(time (format t "part 1: ~a~%" (part-a (parse-input "../inputs/01.txt"))))
;;(time (format t "part 1: ~a~%" (part-b (parse-input "../inputs/01.txt"))))
(deftest 01/test-ex-a (01/aoc)
(let ((result (01/part-a (01/parse-input-direct 01/default-input))))
(assert-equalp 7 result)))
(deftest 01/test-ex-b (01/aoc)
(let ((result (01/part-b (01/parse-input-direct 01/default-input))))
(assert-equalp 5 result)))
(deftest 01/test-a (01/aoc)
(let ((result (01/part-a (01/parse-input "inputs/01.txt"))))
(assert-equalp 1451 result)))
(deftest 01/test-b (01/aoc)
(let ((result (01/part-b (01/parse-input "inputs/01.txt"))))
(assert-equalp 1395 result)))
(defun 01/run-tests () (run-suite '01/aoc))
|