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 / millisecond17 / app / Main.hs
at c8d3db63099e68d453f8d28e369c6e9d129bd94c 16 lines 382 B view raw
Seth Etter add previous years
da23175f
1module Main where 2 3import qualified Data.Sequence as S 4import Lib 5 6main :: IO () 7main = 8 -- let answer1 = valueAfter 2017 $ spinlockValues 324 2017 9 -- in print answer1 10 let answer2 = valueAfter 0 $ spinlockValues 324 50000000 11 in print answer2 12 13valueAfter :: Int -> S.Seq Int -> Int 14valueAfter v vals = 15 let idx = head $ S.elemIndicesL v vals 16 in vals `S.index` (idx + 1)