X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent19.hs;h=a544da6ee9c83ba71aaefa344358dc07b0813055;hb=4ed1e3133856105db52d16c8f6adb60b1ebde920;hp=0fd875f90e456536256a47b9d93c25ab55e1a8fb;hpb=138b27507648bcac18773e688839b0d325acb198;p=advent-of-code-16.git

diff --git a/advent19.hs b/advent19.hs
index 0fd875f..a544da6 100644
--- a/advent19.hs
+++ b/advent19.hs
@@ -13,7 +13,7 @@ part1 :: IO ()
 part1 = print $ 2 * (input - 2 ^ (toInteger (floor $ logBase 2 (fromIntegral input)))) + 1
 
 part2 :: IO ()
-part2 = print $ index (presentSteps initial) 0
+part2 = print $ flip index 0 $ presentSteps initial
 
 presentSteps :: Seq Int -> Seq Int
 presentSteps elves