Day_02(2023): I was a bit shortsighted here

Sheinxy · Dec 2, 2023 · e6040c5 · e6040c5
1 parent 88c1f1e
commit e6040c5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/2023/Day_02/Day_02.hs b/2023/Day_02/Day_02.hs
@@ -18,7 +18,7 @@ parseInput = map (map makeCube . matchCube) . lines
           makeCube [_, n, "green"] = Green (read n)
 
 partOne :: Input -> Output
-partOne = sum . map fst . filter (all id . map validate . snd) . zip [1 .. ]
+partOne = sum . map fst . filter (all validate . snd) . zip [1 .. ]
     where validate (Blue  n) = n <= 14
           validate (Green n) = n <= 13
           validate (Red   n) = n <= 12

diff --git a/2023/Day_02/README.md b/2023/Day_02/README.md
@@ -19,7 +19,7 @@ parseInput = map (map makeCube . matchCube) . lines
           makeCube [_, n, "green"] = Green (read n)
 
 partOne :: Input -> Output
-partOne = sum . map fst . filter (all id . map validate . snd) . zip [1 .. ]
+partOne = sum . map fst . filter (all validate . snd) . zip [1 .. ]
     where validate (Blue  n) = n <= 14
           validate (Green n) = n <= 13
           validate (Red   n) = n <= 12