2018/Day01/Day1A.hs

9 lines
155 B
Haskell
Raw Normal View History

2018-12-02 15:52:36 +00:00
module Day1A where
read' :: String -> Int
read' ('+':str) = read str
read' str = read str
main :: IO ()
main = interact $ show . sum . map read' . lines