day01/part1.hs

   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)