diff options
| -rw-r--r-- | day-07/sol.hs | 3 |
1 files changed, 0 insertions, 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 |