From dffbde6371e03ee070c1a86acb92acfc17b8b170 Mon Sep 17 00:00:00 2001 From: Eric Mertens Date: Tue, 19 Dec 2023 14:04:44 -0800 Subject: [PATCH] layout --- solutions/src/2023/19.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/solutions/src/2023/19.hs b/solutions/src/2023/19.hs index 88612fe..53da457 100644 --- a/solutions/src/2023/19.hs +++ b/solutions/src/2023/19.hs @@ -67,6 +67,7 @@ main = do (workflows_, parts_) <- [format|2023 19 (%a+{(@V@O%u:%a+,)*%a+}%n)*%n({x=%u,m=%u,a=%u,s=%u}%n)*|] let workflows = Map.fromList [(k, (rs, e)) | (k, rs, e) <- workflows_] parts = [Part x m a s | (x, m, a, s) <- parts_] + print (sum [sum p | p <- parts, accepted workflows p]) let full = 1 :> 4001 print (acceptedCount workflows (Part full full full full))