Update sol.hs

This commit is contained in:
Logan Hunt 2022-12-13 00:46:19 -07:00 committed by GitHub
parent 5a68f700ec
commit 868561eda8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -62,9 +62,6 @@ rotl = reverse . transpose
rotr :: [[Int]] -> [[Int]] rotr :: [[Int]] -> [[Int]]
rotr = transpose . reverse rotr = transpose . reverse
mmult :: [[Int]] -> [[Int]] -> [[Int]]
mmult a b = [[sum $ zipWith (*) ar bc | bc <- (transpose b)] | ar <- a]
main = do main = do
ls <- fmap Text.lines (Text.readFile "input") ls <- fmap Text.lines (Text.readFile "input")
let digits = map (getDigitsFromString . Text.unpack) ls let digits = map (getDigitsFromString . Text.unpack) ls