06/main.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(import (chezscheme))

; Where the magic happens
(import (lib))

; Read my personal puzzle input
(define input
  (call-with-input-file "input.txt" get-line))

; Part 1 gives 6681 for me
(printf "Part 1 solution: ~a\n" (solve-part1 input))

; Part 2 gives 2392 for me
(printf "Part 2 solution: ~a\n" (solve-part2 input))