X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=blobdiff_plain;f=src%2Fadvent14%2Fadvent14.hs;fp=src%2Fadvent14%2Fadvent14.hs;h=6df870182f54c5ba3e4d6ddb16c7ec55dd9bfdbc;hp=9a219e119aa0d862c2c82b4fe5b69ab714b07b77;hb=0848ab583616e757895c4ff8453e773b598a49df;hpb=92b8d2e9bb05d589a794e45bc52c63ec19fa1da0 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