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 / millisecond16 / app / Main.hs
at main 14 lines 435 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 "," $ init inputStr 10 moves = parseMoves input 11 oneLoop = loopsAt $ tail $ iterate (performDance moves) programStart 12 dancesLeft = rem 1000000000 (oneLoop + 1) 13 finalPositions = foldl (\c _ -> performDance moves c) programStart [1..dancesLeft] 14 in print finalPositions