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 / millisecond21 / app / Main.hs
at main 13 lines 333 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 rules = parseRules input 11 programAfterXIterations x = (iterate (stepProgram rules) imgStart) !! x 12 in print $ countOnPixels $ programAfterXIterations 18 13