use concatMap
This commit is contained in:
parent
799a12675d
commit
e0c79b9edd
|
@ -4,7 +4,7 @@ import Data.Foldable
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
content <- readFile "input"
|
content <- readFile "input"
|
||||||
let input = (map (map read . splitOn ",") (lines content)) !! 0
|
let input = concatMap (map read . splitOn ",") (lines content)
|
||||||
let input2 = in_replace input 12 2
|
let input2 = in_replace input 12 2
|
||||||
print (day2a input2 (fromList input2) 0)
|
print (day2a input2 (fromList input2) 0)
|
||||||
print (day2b input)
|
print (day2b input)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user