18 lines
381 B
Haskell
18 lines
381 B
Haskell
|
module Main (main) where
|
||
|
|
|
||
|
|
|
||
|
|
part1 :: String -> Integer
|
||
|
|
part1 str = findMax lines' [] 0
|
||
|
|
where
|
||
|
|
lines' = lines str
|
||
|
|
findMax [] acc cMax = max (sum acc) cMax
|
||
|
|
findMax ("":xs) acc cMax = findMax xs [] $ max (sum acc) cMax
|
||
|
|
findMax (x:xs) acc cMax = findMax xs ((read x):acc) cMax
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
contents <- getContents
|
||
|
|
|
||
|
|
putStrLn $ show $ part1 contents
|
||
|
|
|