2018/Day1A.hs

module Day1A where

read' :: String -> Int
read' ('+':str) = read str
read' str = read str

main :: IO ()
main = interact $ show . sum . map read' . lines
day1: add solution 2018-12-01 13:52:17 +00:00			`module Day1A where`

Improve performance 2018-12-01 15:21:38 +00:00			`read' :: String -> Int`
day1: add solution 2018-12-01 13:52:17 +00:00			`read' ('+':str) = read str`
			`read' str = read str`

			`main :: IO ()`
			`main = interact $ show . sum . map read' . lines`