c/aoc-2022
1
Fork 0
Code Issues Releases Activity

Day 3

Browse Source
This commit is contained in:
ctsk
2023-08-29 09:24:31 +02:00
parent 3134dcb526
commit 404d2180af
7 changed files with 342 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@@ -7,6 +7,7 @@ import Print
import qualified Days.D01 as D01
import qualified Days.D02 as D02
import qualified Days.D03 as D03
import System.Environment (getArgs)
@@ -14,6 +15,7 @@ solutions :: [(Int, Day, FilePath)]
solutions =
[ (1, D01.day, "./data/01.in")
, (2, D02.day, "./data/02.in")
, (3, D03.day, "./data/03.in")
]
runAll :: [(Int, Day, FilePath)] -> IO ()
@@ -29,4 +31,4 @@ main :: IO ()
main =
getArgs >>= \case
["all"] -> header >> runAll solutions
_ -> header >> runAll [last (solutions)]
_ -> header >> runAll [last solutions]