simponic/aoc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update sol.hs

Browse Source
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
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
day-07/sol.hs
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