diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
| commit | 281425310c5db21f87981eeb9601a71d1974d98d (patch) | |
| tree | bef4643d906c93622c311fef2cf758fe94f1f651 /Brainfuck/Interpreter.hs | |
| parent | e8695600977769008f285f9958eb043cca1b9b29 (diff) | |
Rearranging files
Diffstat (limited to 'Brainfuck/Interpreter.hs')
| -rw-r--r-- | Brainfuck/Interpreter.hs | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/Brainfuck/Interpreter.hs b/Brainfuck/Interpreter.hs deleted file mode 100644 index 1085a30..0000000 --- a/Brainfuck/Interpreter.hs +++ /dev/null @@ -1,70 +0,0 @@ -module Brainfuck.Interpreter ( - brainfuck - ) where - - -import Data.Char -import Data.Maybe -import Brainfuck.Parser -import Brainfuck.Tape - - - - -brainfuck :: BrainfuckProgram -> IO (Tape Int) -brainfuck program = - let dataTape = (repeat 0, Just 0, repeat 0) - commandTape = shiftRight ([], Nothing, program) - in process commandTape dataTape - - - -endLoop :: Tape BrainCom -> Tape BrainCom -endLoop tape = - let f t c = case (currentCell t, c) of - (Just CloseLoop, 0) -> shiftRight t - (Just OpenLoop, x) -> f (shiftRight t) (x + 1) - (Just CloseLoop, x) -> f (shiftRight t) (x - 1) - (Just com, x) -> f (shiftRight t) x - in f (shiftRight tape) 0 - - - -doLoop :: Tape BrainCom -> Tape BrainCom -doLoop tape = - let f t c = case (currentCell t, c) of - (Just OpenLoop, 0) -> shiftRight t - (Just OpenLoop, x) -> f (shiftLeft t) (x - 1) - (Just CloseLoop, x) -> f (shiftLeft t) (x + 1) - (Just com, x) -> f (shiftLeft t) x - in f (shiftLeft tape) 0 - - - -process :: Tape BrainCom -> Tape Int -> IO (Tape Int) -process commandTape dataTape = - case (currentCell commandTape) of - Nothing -> return dataTape - - Just R -> process (shiftRight commandTape) (shiftRight dataTape) - - Just L -> process (shiftRight commandTape) (shiftLeft dataTape) - - Just Inc -> process (shiftRight commandTape) (applyToCurrentCell ((`mod` 256) . (+1)) dataTape) - - Just Dec -> process (shiftRight commandTape) (applyToCurrentCell ((`mod` 256) . (subtract 1)) dataTape) - - Just Out -> (putChar . chr . fromJust . currentCell $ dataTape) >> process (shiftRight commandTape) dataTape - - Just In -> do { c <- getChar; process (shiftRight commandTape) (applyToCurrentCell (\_ -> ord c) dataTape) } - - Just OpenLoop -> - if (currentCell dataTape == Just 0) - then process (endLoop commandTape) dataTape - else process (shiftRight commandTape) dataTape - - Just CloseLoop -> - if (currentCell dataTape /= Just 0) - then process (doLoop commandTape) dataTape - else process (shiftRight commandTape) dataTape - |