diff options
| -rw-r--r-- | Interpreter.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Interpreter.hs b/Interpreter.hs index 4f3f3aa..690b23d 100644 --- a/Interpreter.hs +++ b/Interpreter.hs @@ -17,28 +17,28 @@ interInss :: Int -> Tape -> Int -> [Instruction] -> [Byte] -> IO [Byte] interInss _ _ _ [] _ = return [] -- interInss count _ _ _ _ | count > 2000000000 = return [] interInss !count !tape !memp allinss@(ins:rest) inp = case ins of - (IAdd value offset) -> do + IAdd value offset -> do MV.modify tape (+ value) (memp + offset) interInss (count + 1) tape memp rest inp - (ISet value offset) -> do + ISet value offset -> do MV.write tape (memp + offset) value interInss (count + 1) tape memp rest inp - (ICopy from to mult) -> do + ICopy from to mult -> do value <- MV.read tape (memp + from) MV.modify tape ((+) (mult * value)) (memp + to) interInss (count + 1) tape memp rest inp - (ISlide offset) -> do + ISlide offset -> do interInss (count + 1) tape (memp + offset) rest inp - (ILoop iins offset) -> do + ILoop iins offset -> do value <- MV.read tape (memp + offset) if value /= 0 then interInss (count + 1) tape memp (iins ++ allinss) inp else interInss (count + 1) tape memp rest inp - (IInput offset) -> do + IInput offset -> do let (c:cs) = inp MV.write tape (memp + offset) c interInss (count + 1) tape memp rest cs - (IOutput offset) -> do + IOutput offset -> do value <- MV.read tape (memp + offset) (value :) <$> interInss (count + 1) tape memp rest inp IStart -> do |