From: Neil Smith <neil.git@njae.me.uk>
Date: Sun, 22 Dec 2019 23:21:59 +0000 (+0000)
Subject: Tidying
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=d5e7b65eb2a47c9142530adfae52f30930cbf6ae;p=advent-of-code-19.git

Tidying
---

diff --git a/advent17/src/advent17.hs b/advent17/src/advent17.hs
index 34d80a9..781b2e9 100644
--- a/advent17/src/advent17.hs
+++ b/advent17/src/advent17.hs
@@ -99,21 +99,20 @@ alignmentParam (r, c) = r * c
 
 findRoutine :: ScaffoldBuilder -> Routine
 findRoutine scaff = head $ compressedCmds
-    where -- scaff = mkVisited sb
-          path = findPath scaff
+    where path = findPath scaff
           cmds = toCommands path
           compressedCmds = compress cmds
 
-encodeRoutine :: ([Command], [Command], [Command], [Command]) -> [Integer]
+encodeRoutine :: Routine -> [Integer]
 encodeRoutine (abc, a, b, c) = map (fromIntegral . ord) $ unlines [show abc, show a, show b, show c, "n", ""]
 
+
 findPath :: ScaffoldBuilder -> [Step]
 findPath = unfoldr takeStep
 
 takeStep :: ScaffoldBuilder -> Maybe (Step, ScaffoldBuilder)
 takeStep visitedScaffold = step
     where   scaff = _scaffold visitedScaffold
-            -- visited = _visited visitedScaffold
             here = _droidPos visitedScaffold
             dir = _droidDirection visitedScaffold
             fPos   = ahead here dir
@@ -162,6 +161,7 @@ compress commands =
         guard $ length (show c) <= 20
         let commandsABC = replace c C commandsAB
         guard $ length (show commandsABC) <= 20
+        guard $ onlyNonBase commandsABC
         return (commandsABC, a, b, c)
         
 
@@ -177,6 +177,9 @@ replace moves label commands =
 onlyBase :: [Command] -> Bool
 onlyBase moves = all isBase moves
 
+onlyNonBase :: [Command] -> Bool
+onlyNonBase moves = all (not . isBase) moves
+
 isBase :: Command -> Bool
 isBase (FN _) = True
 isBase L = True