9 lines
159 B
Haskell
9 lines
159 B
Haskell
|
module Day1A where
|
||
|
|
|
||
|
|
read' :: String -> Integer
|
||
|
|
read' ('+':str) = read str
|
||
|
|
read' str = read str
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = interact $ show . sum . map read' . lines
|