diff --git a/src/Day7.hs b/src/Day7.hs index 7242b82..27a3d0e 100644 --- a/src/Day7.hs +++ b/src/Day7.hs @@ -81,21 +81,6 @@ import Protolude import qualified Data.Set as Set import Text.Parsec -testInput :: Text -testInput = "pbga (66)\n\ - \xhth (57)\n\ - \ebii (61)\n\ - \havc (66)\n\ - \ktlj (57)\n\ - \fwft (72) -> ktlj, cntj, xhth\n\ - \qoyq (66)\n\ - \padx (45) -> pbga, havc, qoyq\n\ - \tknk (41) -> ugml, padx, fwft\n\ - \jptl (61)\n\ - \ugml (68) -> gyxo, ebii, jptl\n\ - \gyxo (61)\n\ - \cntj (57)" - data Node = Node { name :: Text , weight :: Int , sons :: [Text] @@ -133,3 +118,17 @@ parseNode = <*> (char '(' *> int <* char ')') <*> sonsP +testInput :: Text +testInput = "pbga (66)\n\ + \xhth (57)\n\ + \ebii (61)\n\ + \havc (66)\n\ + \ktlj (57)\n\ + \fwft (72) -> ktlj, cntj, xhth\n\ + \qoyq (66)\n\ + \padx (45) -> pbga, havc, qoyq\n\ + \tknk (41) -> ugml, padx, fwft\n\ + \jptl (61)\n\ + \ugml (68) -> gyxo, ebii, jptl\n\ + \gyxo (61)\n\ + \cntj (57)\n"