From 0848ab583616e757895c4ff8453e773b598a49df Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Sun, 16 Dec 2018 16:16:14 +0000 Subject: [PATCH] Tidying --- src/advent14/advent14.hs | 2 -- 1 file changed, 2 deletions(-) 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 -- 2.34.1