Simplify day 1

appositum · appositum · commit 29373bdf6f17 · 2018-12-03T23:46:58.000-03:00
diff --git a/2018/01_1/haskell/appositum.hs b/2018/01_1/haskell/appositum.hs
@@ -8,13 +8,10 @@ parse :: String -> Int -> Int
 parse ('+':n) = (+ readInt n)
 parse ('-':n) = subtract (readInt n)
 
-loop :: Int -> [String] -> Int
-loop acc lst =
-  foldl' (flip ($)) acc (map parse lst)
-
 main :: IO ()
 main = do
   args <- getArgs
   case args of
     [] -> putStrLn "Usage: ./appositum input.txt"
-    (arg:_) -> readFile arg >>= print . loop 0 . lines
+    (arg:_) -> readFile arg
+           >>= print . foldl' (flip ($)) 0 . map parse . lines
