Add 2 day of 2024 (part1)

1 files changed, 54 insertions, 0 deletions

diff --git a/2024/day02/main.scm b/2024/day02/main.scm
new file mode 100755
index 0000000..310f72e
--- /dev/null
+++ b/2024/day02/main.scm
@@ -0,0 +1,54 @@
+#!/usr/bin/guile -s
+!#
+
+(add-to-load-path (format #f "~a/2024" (getcwd)))
+(add-to-load-path (format #f "~a/.." (dirname (current-filename))))
+
+(use-modules
+ (aoc-utils)
+ (srfi srfi-1)
+ (srfi srfi-9)
+ (ice-9 regex))
+
+(define (all-decresing? report)
+  (equal? report (sort report >)))
+
+(define (all-incrising? report)
+  (equal? report (sort report <)))
+
+(define (safe-head? report)
+  (if (>=(length report) 2)
+      (let ((diff (abs (- (first report) (second report)))))
+        (and (<= diff 3) (>= diff 1)))
+      #t))
+
+(define (safe-difference? report)
+  (cond ((not (safe-head? report)) #f)
+        ((null? report) #t)
+        (else (safe-difference? (cdr report)))))
+
+(define (safe-report? report)
+  (and (or (all-incrising? report)
+           (all-decresing? report))
+       (safe-difference? report)))
+
+(define (part1 lines)
+  (let ((reports (lines->number-list lines)))
+    (fold + 0 (map (lambda (report) (if (safe-report? report)
+                                        1
+                                        0)) reports))))
+
+(define (part2 lines)
+  (let ((reports (lines->number-list lines)))
+    0))
+
+(define (main)
+  (let ((lines (file->list "input.txt")))
+    (display "Part1: ")
+    (display (part1 lines))
+    (newline)
+    (display "Part2: ")
+    (display (part2 lines))
+    (newline)))
+
+(main)