seth.computer / advent-of-code
this repo has no description
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

advent-of-code / 2017 / millisecond22 / app / Main.hs
at c8d3db63099e68d453f8d28e369c6e9d129bd94c 13 lines 341 B view raw
Seth Etter add previous years
da23175f
1module Main where 2 3import Lib 4import Data.List.Split (splitOn) 5 6main :: IO () 7main = do 8 inputStr <- readFile "input.txt" 9 let input = splitOn "\n" $ init inputStr 10 grid = parseGrid input 11 carrier = initCarrier grid 12 burstXTimes x = (iterate doBurst (grid, carrier)) !! x 13 in print $ getCount . snd $ burstXTimes 10000000