Tweaked

diff --git a/adventofcode1701/app/advent01.hs b/adventofcode1701/app/advent01.hs
index d6d37829e70ccbbcd15bfc41884470be1a28b11b..dc63f9cccb7371cfd927dbac08bbe4cbf36ef6df 100644 (file)
--- a/adventofcode1701/app/advent01.hs
+++ b/adventofcode1701/app/advent01.hs
@@ -20,7 +20,7 @@ part1 instructions = do
 
 part2 :: [Int] -> IO ()
 part2 instructions = do
-        print $ length $ takeWhile (> -1) $ scanl (+) 0 instructions
+        print $ length $ takeWhile (>= 0) $ scanl (+) 0 instructions