From: Neil Smith Date: Sun, 16 Dec 2018 16:16:14 +0000 (+0000) Subject: Tidying X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=0848ab583616e757895c4ff8453e773b598a49df;p=advent-of-code-18.git Tidying --- diff --git a/src/advent14/advent14.hs b/src/advent14/advent14.hs index 9a219e1..6df8701 100644 --- a/src/advent14/advent14.hs +++ b/src/advent14/advent14.hs @@ -26,8 +26,6 @@ part2 :: State -> Int part2 state0 = if (takeR (Q.length targetSeq) recipes) == targetSeq then (Q.length recipes) - (Q.length targetSeq) else (Q.length recipes) - (Q.length targetSeq) - 1 --- recipes -- (Q.length recipes) - (Q.length targetSeq) - where (State _ _ recipes) = head $ dropWhile (unfinished2 targetSeq) $ states state0 unfinished2 :: Recipes -> State -> Bool