Initial Commit

app/Main.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE LambdaCase #-}
+
+module Main where
+
+import Lib
+import Print
+
+import qualified Days.D01 as D01
+import System.Environment (getArgs)
+
+header :: IO ()
+header = putStrLn "[ Day ]------(1)-----+------(2)----"
+
+usage :: IO ()
+usage = putStrLn "./Main"
+
+main :: IO ()
+main =
+    getArgs >>= \case
+        _ -> header >> run D01.day "data/01.in" >>= printDR 1