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 / millisecond20 / app / Main.hs
at c8d3db63099e68d453f8d28e369c6e9d129bd94c 13 lines 389 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 particles = parseParticles input 11 -- closest = closestToZeroOverXSteps 1000 particles 12 leftAfter = last $ map length . take 100 $ iterate (removeCollisions . stepParticles) particles 13 in print $ leftAfter