Day 17 done

[advent-of-code-18.git] / src / advent14 / advent14.hs

diff --git a/src/advent14/advent14.hs b/src/advent14/advent14.hs
index 9a219e119aa0d862c2c82b4fe5b69ab714b07b77..9f642bcc523474f4a577db214b816ab5fa511ede 100644 (file)
--- a/src/advent14/advent14.hs
+++ b/src/advent14/advent14.hs
@@ -1,6 +1,5 @@
 import qualified Data.Sequence as Q
-import Data.Sequence ((<|), (|>))
-import Data.List
+import Data.Sequence ((|>))
 import Data.Foldable (toList)
 
 type Recipes = Q.Seq Int
@@ -26,8 +25,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