Done day 21

[advent-of-code-19.git] / advent21 / src / advent21.hs

diff --git a/advent21/src/advent21.hs b/advent21/src/advent21.hs
new file mode 100644 (file)
index 0000000..3829a68
--- /dev/null
+++ b/advent21/src/advent21.hs
@@ -0,0 +1,53 @@
+import Debug.Trace
+
+import Intcode
+
+import qualified Data.Text.IO as TIO
+
+import Data.List
+import Data.Char
+
+
+main :: IO ()
+main = do 
+        text <- TIO.readFile "data/advent21.txt"
+        let mem = parseMachineMemory text
+        let machine = makeMachine mem
+        putStrLn $ part1 machine
+        putStrLn $ part2 machine
+
+part1Code :: [Integer]
+part1Code = map (fromIntegral . ord) $ concatMap (++ "\n") 
+    [ "OR  A T"
+    , "AND B T"
+    , "AND C T"
+    , "NOT T J"
+    , "AND D J"
+    , "WALK"
+    ]
+
+part2Code :: [Integer]
+part2Code = map (fromIntegral . ord) $ concatMap (++ "\n") 
+    [ "OR  A T"
+    , "AND B T"
+    , "AND C T"
+    , "NOT T J"
+    -- e OR H -> T
+    , "OR  E T"
+    , "OR  H T"
+    , "AND T J"
+    , "AND D J"
+    , "RUN"
+    ]
+
+
+part1 machine = drawOutput output
+    where (_, _, output) = runMachine part1Code machine
+
+part2 machine = drawOutput output
+    where (_, _, output) = runMachine part2Code machine
+
+drawOutput cs = t ++ n
+    where t = map (chr . fromIntegral) $ filter (<= 128) cs
+          n = show (filter ( > 128) cs)
+