blob: aa02b7d2aabf76935900206046275a6ab39c0cf1 (
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
39
40
41
|
(ql:quickload "clunit")
(load "../src/01.lisp")
(use-package :clunit)
(defsuite aoc-01 ())
(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 (aoc-01)
(let ((result (01/part-a (01/parse-input-direct 01/default-input))))
(assert-equalp 7 result)))
(deftest 01/test-ex-b (aoc-01)
(let ((result (01/part-b (01/parse-input-direct 01/default-input))))
(assert-equalp 5 result)))
(deftest 01/test-a (aoc-01)
(let ((result (01/part-a (01/parse-input "../inputs/01.txt"))))
(assert-equalp 1451 result)))
(deftest 01/test-b (aoc-01)
(let ((result (01/part-b (01/parse-input "../inputs/01.txt"))))
(assert-equalp 1395 result)))
(run-suite 'aoc-01)
|