Done day 9

[advent-of-code-20.git] / advent08 / src / advent08.hs

diff --git a/advent08/src/advent08.hs b/advent08/src/advent08.hs
index dab483e3df52f786c71d904a112a64a84c9104a9..ba8134ce5708b31e9bad6ec36bfca5cc5d294dfe 100644 (file)
--- a/advent08/src/advent08.hs
+++ b/advent08/src/advent08.hs
@@ -47,13 +47,6 @@ part2 program = filter terminates $ map runProgram programs
 
 
 executeMany visited machine
-  -- if currentIP `S.member` visited
-  -- then Looped (machineAcc machine)
-  -- else if currentIP == programSize
-  --      then Terminated (machineAcc machine)
-  --      else if currentIP > programSize
-  --           then OutOfBounds (machineAcc machine) currentIP
-  --           else executeMany visited' machine'
   | currentIP `S.member` visited = Looped (machineAcc machine)
   | currentIP == programSize     = Terminated (machineAcc machine)
   | currentIP > programSize      = OutOfBounds (machineAcc machine) currentIP