working use case
This commit is contained in:
parent
3e5df86c1b
commit
04e42a470a
|
@ -2,6 +2,7 @@ module Main where
|
||||||
|
|
||||||
import SixtyFiveOhTwo.Instruction
|
import SixtyFiveOhTwo.Instruction
|
||||||
import Control.Monad.State
|
import Control.Monad.State
|
||||||
|
import qualified Data.ByteString as B
|
||||||
|
|
||||||
accumulatorLoadNStore :: Instruction
|
accumulatorLoadNStore :: Instruction
|
||||||
accumulatorLoadNStore = do
|
accumulatorLoadNStore = do
|
||||||
|
@ -15,4 +16,4 @@ myProgram = do
|
||||||
call "accumulatorLoadNStore"
|
call "accumulatorLoadNStore"
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = print $ runState myProgram emptyState
|
main = B.putStr $ runInstructions myProgram
|
||||||
|
|
Loading…
Reference in New Issue