summaryrefslogtreecommitdiff
path: root/day-07/sol.hs
diff options
context:
space:
mode:
authorLogan Hunt <loganhunt@simponic.xyz>2022-12-13 00:46:19 -0700
committerGitHub <noreply@github.com>2022-12-13 00:46:19 -0700
commit868561eda86be873d755c62ea5b7fbb3047d4c3a (patch)
treede24111620065f71a903a810a6827dc0d7142112 /day-07/sol.hs
parent5a68f700ecc30e5fdbdc802fc44c2ca0cbc85aaf (diff)
downloadaoc-868561eda86be873d755c62ea5b7fbb3047d4c3a.tar.gz
aoc-868561eda86be873d755c62ea5b7fbb3047d4c3a.zip
Update sol.hs
Diffstat (limited to 'day-07/sol.hs')
-rw-r--r--day-07/sol.hs3
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