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