From 768e3e07593fb29bbebb44dcefde169a2822c2c1 Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Sun, 1 Dec 2024 12:05:04 +0100
Subject: [PATCH] Simplify day 1, puzzle 2 code

---
 Day1/puzzle2.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Day1/puzzle2.hs b/Day1/puzzle2.hs
index fc43327..c3f7b44 100644
--- 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"