Tidying

[advent-of-code-16.git] / advent19.hs

diff --git a/advent19.hs b/advent19.hs
index 9b9406ce6005037a5437c7015101e90feb1a0095..a544da6ee9c83ba71aaefa344358dc07b0813055 100644 (file)
--- a/advent19.hs
+++ b/advent19.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE BangPatterns #-}
-
 import Prelude hiding (length, take, drop)
 import Data.Sequence
 
@@ -15,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