X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=adventofcode1701%2Fapp%2Fadvent01.hs;h=dc63f9cccb7371cfd927dbac08bbe4cbf36ef6df;hb=519affb87dbd87b031b97c464b4d639ca1fcb2cc;hp=d6d37829e70ccbbcd15bfc41884470be1a28b11b;hpb=3a599e34c0ddccec3e5c5d20a11fad920e4628c9;p=advent-of-code-17.git

diff --git a/adventofcode1701/app/advent01.hs b/adventofcode1701/app/advent01.hs
index d6d3782..dc63f9c 100644
--- 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