Commit changed files

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

View file

@ -25,6 +25,7 @@ import qualified Aoc.Y2020.D19 as D19
import qualified Aoc.Y2020.D20 as D20
import qualified Aoc.Y2020.D21 as D21
import qualified Aoc.Y2020.D22 as D22
import qualified Aoc.Y2020.D23 as D23
year :: Year
year = Year 2020
@ -50,4 +51,5 @@ year = Year 2020
, (20, D20.day)
, (21, D21.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