From: Neil Smith Date: Wed, 29 Nov 2017 08:21:02 +0000 (+0000) Subject: Tweaked X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-17.git;a=commitdiff_plain;h=931b8f4140207d95611a9904407226c034713cbd Tweaked --- 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