From 2a00a57fe78acd0b435c897016850aa92aba91a0 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 15 Apr 2018 10:22:54 +0200 Subject: Remove unnecessary parentheses --- Interpreter.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Interpreter.hs') 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 -- cgit v1.2.3-54-g00ecf