Day_07(2023): some cleanup

Sheinxy · Dec 7, 2023 · c5df9a1 · c5df9a1
1 parent a83de7d
commit c5df9a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/2023/Day_07/Day_07.hs b/2023/Day_07/Day_07.hs
@@ -40,7 +40,7 @@ parseInput :: String -> Input
 parseInput =  map ((\[c, b] -> Hand c (read b) (getType c) "23456789TJQKA") . words) . lines
 
 partOne :: Input -> Output
-partOne = sum . map (\(n, h) -> n * bid h) . zip [1 .. ] . sort
+partOne = sum . map (uncurry (*)) . zip [1 .. ] . map bid . sort
 
 partTwo :: Input -> Output
 partTwo = partOne . map convertHand