21 lines
363 B
Haskell
21 lines
363 B
Haskell
{-# 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
|