Day 25

2024-01-01 18:00:41 +01:00
parent 262ad03e46
commit 303bd7cbb8
3 changed files with 73 additions and 0 deletions
--- a/day25/Main.hs
+++ b/day25/Main.hs
@@ -0,0 +1,9 @@
+module Main where
+
+import Commons
+import Data.Map (keys)
+
+
+main = do network <- parse
+          let part1Res = iterateUntilPartition (keys network) network
+          print $ uncurry (*) part1Res