From 868561eda86be873d755c62ea5b7fbb3047d4c3a Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Tue, 13 Dec 2022 00:46:19 -0700 Subject: [PATCH] Update sol.hs --- day-07/sol.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/day-07/sol.hs b/day-07/sol.hs index 8de828b..c6b8c35 100644 --- a/day-07/sol.hs +++ b/day-07/sol.hs @@ -62,9 +62,6 @@ rotl = reverse . transpose rotr :: [[Int]] -> [[Int]] rotr = transpose . reverse -mmult :: [[Int]] -> [[Int]] -> [[Int]] -mmult a b = [[sum $ zipWith (*) ar bc | bc <- (transpose b)] | ar <- a] - main = do ls <- fmap Text.lines (Text.readFile "input") let digits = map (getDigitsFromString . Text.unpack) ls