[adventofcode2018.git] / day01 / part1.hs

main = do
    contents <- getContents
    print . sum $ map toInt (lines contents)

toInt :: String -> Int
toInt (x:xs) = if x == '+'
             then read xs :: Int
             else -(read xs :: Int)
Commit	Line	Data
	1	main = do
	2	contents <- getContents
	3	print . sum $ map toInt (lines contents)
	4
	5	toInt :: String -> Int
	6	toInt (x:xs) = if x == '+'
	7	then read xs :: Int
	8	else -(read xs :: Int)