diff options
author | Prefetch | 2024-03-26 21:41:32 +0100 |
---|---|---|
committer | Prefetch | 2024-03-26 21:41:32 +0100 |
commit | 757b98fb30e75d7698a0986184d0303224db156c (patch) | |
tree | b0f01bf59bb6fc7d26b55f6edd611393f8f8bf62 /08/main.scm | |
parent | 1fbb07c54523c7a576bfff1cb689e155dd55f15a (diff) |
Publish days 6-10
Diffstat (limited to '08/main.scm')
-rw-r--r-- | 08/main.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/08/main.scm b/08/main.scm new file mode 100644 index 0000000..fbcd10e --- /dev/null +++ b/08/main.scm @@ -0,0 +1,20 @@ +(import (chezscheme)) + +; Where the magic happens +(import (lib)) + +; Read my personal puzzle input +(define input + (call-with-input-file "input.txt" + (lambda (port) + (let loop ((line (get-line port)) + (result '())) + (if (eof-object? line) + (reverse result) + (loop (get-line port) (cons line result))))))) + +; Part 1 gives 5215 for me +(printf "Part 1 solution: ~a\n" (solve-part1 input)) + +; Part 2 gives 6419 for me +(printf "Part 2 solution: ~a\n" (solve-part2 input)) |