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

[hs] Solve 2020_19 part 2

Browse source
This commit is contained in:
Joscha 2020-12-19 16:05:13 +00:00
parent e8f3e01617
commit bd7575a9f5
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
hs/src/Aoc/Y2020/D19.hs
View file

@ -67,5 +67,10 @@ solver (rules, msgs) = do
putStrLn ">> Part 1" putStrLn ">> Part 1"
print $ length $ filter (isValid rules) msgs print $ length $ filter (isValid rules) msgs
putStrLn ""
putStrLn ">> Part 2"
let rules2 = Map.insert 8 (Branch [[42],[42,8]]) $ Map.insert 11 (Branch [[42,31],[42,11,31]]) rules
print $ length $ filter (isValid rules2) msgs
day :: Day day :: Day
day = dayParse parser solver day = dayParse parser solver