Stash away some minor changes
authorMichael Welch <michaelgwelch@gmail.com>
Sat, 18 Feb 2012 16:31:37 +0000 (10:31 -0600)
committerMichael Welch <michaelgwelch@gmail.com>
Sat, 18 Feb 2012 16:31:37 +0000 (10:31 -0600)
haskell/context.hs [new file with mode: 0644]
haskell/instruction.hs

diff --git a/haskell/context.hs b/haskell/context.hs
new file mode 100644 (file)
index 0000000..9a8f5bd
--- /dev/null
@@ -0,0 +1,3 @@
+module Context where
+
+data Context = Context Program Tape 
index 139feb3..691365c 100644 (file)
@@ -1,5 +1,7 @@
 module Instruction where
 
+import Context
+
 data Instruction = MoveForward
                  | MoveBackward
                  | Increment
@@ -18,3 +20,7 @@ parseInstruction '.' = Output
 parseInstruction ',' = Input
 parseInstruction '[' = TestAndJumpForward
 parseInstruction ']' = TestAndJumpBackward
+
+
+execute :: (Instruction -> Context) -> Context
+execute MoveForward (Context p t) = (Context p $ moveF t)