From 78232b574dc4eba001d536a865c115582c4e2325 Mon Sep 17 00:00:00 2001
From: lamp
Date: Sat, 2 Dec 2023 12:11:50 +0000
Subject: day 2: tidy

---
 2-2.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to '2-2.scm')

diff --git a/2-2.scm b/2-2.scm
index 240d8d1..2fdff71 100755
--- a/2-2.scm
+++ b/2-2.scm
@@ -4,10 +4,6 @@
              (ice-9 textual-ports)
              (srfi srfi-1))
 
-(define red-max 12)
-(define green-max 13)
-(define blue-max 14)
-
 (define (read-lines port)
   (letrec ((loop (lambda (l ls)
                    (if (eof-object? l)
@@ -28,9 +24,8 @@
          (values (map triplet-values rest))
          (red-min (fold (lambda (x y) (if (> x y) x y)) 0 (map car values)))
          (green-min (fold (lambda (x y) (if (> x y) x y)) 0 (map cadr values)))
-         (blue-min (fold (lambda (x y) (if (> x y) x y)) 0 (map caddr values)))
-         (power (* red-min green-min blue-min)))
-    power))
+         (blue-min (fold (lambda (x y) (if (> x y) x y)) 0 (map caddr values))))
+    (* red-min green-min blue-min)))
 
 (let* ((port (open-input-file "2.txt"))
        (lines (read-lines port)))
-- 
cgit v1.2.3