blob: 50a425d3e09cbb14677945b908e932d8550e215b (
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
42
|
(import (chezscheme))
; Where the magic happens
(import (lib))
; My quick-and-dirty unit testing framework (copied for each day)
(define (run-test name proc input expected)
(let ((result (proc input)))
(if (equal? result expected)
(printf "\x1b;[32;1mPASS\x1b;[0m: ~a\n"
name)
(printf "\x1b;[31;1mFAIL\x1b;[0m: ~a: got ~a, expected ~a\n"
name result expected))))
; I've disabled part 1's test because it uses a 5-element list
; instead of 256 elements like the main problem and part 2, and
; I'm too lazy to structure my code properly to deal with that.
;(printf "Part 1 tests:\n")
;(define (test-part1 name input expected)
; (run-test name solve-part1 input expected))
;(test-part1 "part 1 example 1"
; "3,4,1,5" 12)
(printf "Part 2 tests:\n")
(define (test-part2 name input expected)
(run-test name solve-part2 input expected))
(test-part2 "part 2 example 1"
"" "a2582a3a0e66e6e86e3812dcb672a272")
(test-part2 "part 2 example 2"
"AoC 2017" "33efeb34ea91902bb2f59c9920caa6cd")
(test-part2 "part 2 example 3"
"1,2,3" "3efbe78a8d82f29979031a4aa0b16a9d")
(test-part2 "part 2 example 4"
"1,2,4" "63960835bcdc130f0b66d7ff4f6a5a8e")
|
