Commit changed files
This commit is contained in:
parent
d4c395b713
commit
1dfb00952c
2 changed files with 21 additions and 0 deletions
|
|
@ -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
19
hs/src/Aoc/Y2020/D23.hs
Normal 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue