From bd7575a9f58b6f47ebe98edc8ec29ff454325333 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Sat, 19 Dec 2020 16:05:13 +0000
Subject: [PATCH] [hs] Solve 2020_19 part 2

---
 hs/src/Aoc/Y2020/D19.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/hs/src/Aoc/Y2020/D19.hs b/hs/src/Aoc/Y2020/D19.hs
index f6e439f..e2a388a 100644
--- a/hs/src/Aoc/Y2020/D19.hs
+++ b/hs/src/Aoc/Y2020/D19.hs
@@ -67,5 +67,10 @@ solver (rules, msgs) = do
   putStrLn ">> Part 1"
   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 = dayParse parser solver