From 757b98fb30e75d7698a0986184d0303224db156c Mon Sep 17 00:00:00 2001
From: Prefetch
Date: Tue, 26 Mar 2024 21:41:32 +0100
Subject: Publish days 6-10

---
 08/main.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 08/main.scm

(limited to '08/main.scm')

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))
-- 
cgit v1.2.3