From 4ed1e3133856105db52d16c8f6adb60b1ebde920 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Mon, 19 Dec 2016 10:56:13 +0000
Subject: [PATCH] Added a flip, to make it prettier

---
 advent19.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 
-- 
2.34.1