13 lines
322 B
Haskell
13 lines
322 B
Haskell
module Main where
|
|
|
|
import Commons
|
|
import qualified Part1
|
|
import qualified Part2
|
|
|
|
|
|
main = do modules <- parse
|
|
let (part1Low, part1High) = Part1.pressButtonNTimes modules 1000
|
|
print (part1Low * part1High)
|
|
let part2Res = Part2.pressButtonUntilDone modules
|
|
print $ foldl lcm 1 part2Res
|