18 lines
354 B
Haskell
18 lines
354 B
Haskell
module Main where
|
|
|
|
import Base
|
|
import Evaluate
|
|
import Formatter
|
|
|
|
import Text.Printf
|
|
import Data.String (fromString)
|
|
|
|
main :: IO ()
|
|
main = prettyPrintState' s
|
|
where
|
|
s :: State
|
|
s = foldl f initState [Increment, Increment, Increment, MoveRight, Increment]
|
|
|
|
f :: State -> BFAction -> State
|
|
f state action = fst (processAction state action)
|