Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Commit changed files

Browse source
This commit is contained in:
Joscha 2021-12-14 17:39:25 +00:00
parent d4c395b713
commit 1dfb00952c
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
hs/src/Aoc/Y2020.hs
View file

@ -25,6 +25,7 @@ import qualified Aoc.Y2020.D19 as D19
import qualified Aoc.Y2020.D20 as D20 import qualified Aoc.Y2020.D20 as D20
import qualified Aoc.Y2020.D21 as D21 import qualified Aoc.Y2020.D21 as D21
import qualified Aoc.Y2020.D22 as D22 import qualified Aoc.Y2020.D22 as D22
import qualified Aoc.Y2020.D23 as D23
year :: Year year :: Year
year = Year 2020 year = Year 2020
@ -50,4 +51,5 @@ year = Year 2020
, (20, D20.day) , (20, D20.day)
, (21, D21.day) , (21, D21.day)
, (22, D22.day) , (22, D22.day)
, (23, D23.day)
] ]

19
hs/src/Aoc/Y2020/D23.hs Normal file
View file

@ -0,0 +1,19 @@
module Aoc.Y2020.D23
( day
) where
import Data.Sequence as Seq
import Aoc.Day
import Aoc.Parse
parser :: Parser (Seq Int)
parser = Seq.fromList <$> many digit <* newline
solver :: Seq Int -> IO ()
solver circle = do
putStrLn ">> Part 1"
print circle
day :: Day
day = dayParse parser solver