Simplify day 1, puzzle 2 code

2024-12-01 12:05:04 +01:00 · 2024-12-01 12:05:04 +01:00 · 768e3e0759
commit 768e3e0759
parent 75e0d29f8e
1 changed files with 1 additions and 2 deletions
--- a/Day1/puzzle2.hs
+++ b/Day1/puzzle2.hs
@ -3,8 +3,7 @@ import System.IO

 similarityScore :: [Int] -> [Int] -> Int
 similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort) ys ]
-                            xy = [ (x, snd y) | x <- xs, y <- elemsY, x == fst y ]
-                        in sum [ uncurry (*) x | x <- xy ]
+                        in  sum [ x * snd y | x <- xs, y <- elemsY, x == fst y ]

 main = do
    contents <- lines <$> readFile "day1.txt"