jakalx/aoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Solve 2023-04

Browse source
This commit is contained in:
Alexander Kobjolke 2023-12-05 20:36:09 +01:00
parent ea76aecceb
commit b3bb19f38d
9 changed files with 469 additions and 154 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/AoC/Riddle.hs
View file

@ -3,6 +3,9 @@ module AoC.Riddle (
Error,
Solution,
loadRiddle,
loadExample,
module AoC.Day,
module AoC.Year,
) where
import AoC.Util (readFileUtf8)
@ -15,6 +18,12 @@ type Error = Text
type Solution = [Integer]
loadRiddle :: (MonadIO m) => Year -> Day -> m Riddle
loadRiddle y d = readFileUtf8 inputFile
loadRiddle = loadFile "riddle"
loadExample :: (MonadIO m) => Year -> Day -> m Riddle
loadExample = loadFile "example"
loadFile :: (MonadIO m) => FilePath -> Year -> Day -> m Riddle
loadFile f y d = readFileUtf8 inputFile
where
inputFile = intercalate "/" ["data", show y, show d, "riddle"]
inputFile = intercalate "/" ["data", show y, show d, f]