10 lines
195 B
Haskell
10 lines
195 B
Haskell
module Main where
|
|
|
|
import Commons
|
|
import Data.Map (keys)
|
|
|
|
|
|
main = do network <- parse
|
|
let part1Res = iterateUntilPartition (keys network) network
|
|
print $ uncurry (*) part1Res
|