[hs] Solve 2019_02

This commit is contained in:
Joscha 2020-11-02 23:40:24 +00:00
parent 277c4109b8
commit e05a194943
4 changed files with 114 additions and 0 deletions

View file

@ -3,6 +3,7 @@ module Main where
import Options.Applicative
import Aoc.Y2019.A01
import Aoc.Y2019.A02
data Settings = Settings
{ function :: FilePath -> IO ()
@ -12,6 +13,7 @@ data Settings = Settings
solutions :: Parser (FilePath -> IO ())
solutions = subparser $ mconcat $ map (\(name, func) -> command name (info (pure func) mempty))
[ ("2019_01", solve201901)
, ("2019_02", solve201902)
]
parser :: Parser Settings