Initial commit

day1/haskell/day1.hs

@@ -0,0 +1,11 @@
+import System.IO
+import Control.Monad
+
+getInts :: FilePath -> IO [Integer]
+getInts path = do
+    contents <- readFile path
+    let ints = (map read . lines $ contents) :: [Integer]
+    return ints
+
+main = do
+    putStrLn "The solution is: "