shorten day07

1 files changed, 3 insertions, 5 deletions

diff --git a/execs/Day07.hs b/execs/Day07.hs
index 72043af..a0c1eb0 100644
--- a/execs/Day07.hs
+++ b/execs/Day07.hs
@@ -8,15 +8,13 @@ myBag = "shiny gold"
 
 parseContained :: [String] -> [(Int, String)]
 parseContained [] = []
+parseContained ("no":_) = []
 parseContained (count:b:c:_:rest) = (read count, unwords [b,c]):parseContained rest
 
 parseLine :: [String] -> (String, [(Int, String)])
-parseLine s = (leadingBag, contained)
-    where leadingBag = unwords $ take 2 s
+parseLine s = (leadingBag, parseContained trailingBags)
+    where leadingBag = unwords (take 2 s)
           trailingBags = drop 4 s
-          contained = case head trailingBags of
-                        "no" -> []
-                        _ -> parseContained trailingBags
 
 canContain :: Map String [(Int, String)] -> String -> Bool
 canContain m outer = myBag `elem` inners || any (canContain m) inners