[hs] Solve 2019_03

This commit is contained in:
Joscha 2020-11-03 22:24:01 +00:00
parent 0a99b9b647
commit 4044d6aabf
2 changed files with 82 additions and 0 deletions

View file

@ -4,6 +4,7 @@ import Options.Applicative
import Aoc.Y2019.A01
import Aoc.Y2019.A02
import Aoc.Y2019.A03
data Settings = Settings
{ function :: FilePath -> IO ()
@ -14,6 +15,7 @@ solutions :: Parser (FilePath -> IO ())
solutions = subparser $ mconcat $ map (\(name, func) -> command name (info (pure func) mempty))
[ ("2019_01", solve201901)
, ("2019_02", solve201902)
, ("2019_03", solve201903)
]
parser :: Parser Settings