use concatMap

This commit is contained in:
shu 2019-12-02 09:23:25 +01:00
parent 799a12675d
commit e0c79b9edd

View File

@ -4,7 +4,7 @@ import Data.Foldable
main = do
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
print (day2a input2 (fromList input2) 0)
print (day2b input)