day 2: tidy

1 files changed, 2 insertions, 7 deletions

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)))