diff options
| -rw-r--r-- | Thue/Interpreter.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/Thue/Interpreter.hs b/Thue/Interpreter.hs index 6022038..cbf58a4 100644 --- a/Thue/Interpreter.hs +++ b/Thue/Interpreter.hs @@ -11,7 +11,7 @@ import Parser -thue :: ThueProgram -> ThueState +thue :: ThueProgram -> IO ThueState thue program = let rules = thueRules program state = thueInitialState program @@ -21,17 +21,23 @@ thue program = -interpret :: ThueState -> [ThueRule] -> StdGen -> ThueState -interpret state rules gen = +interpret :: ThueState -> [ThueRule] -> StdGen -> IO ThueState +interpret state rules gen = do let possibleRules = rules `applicableTo` state ruleToApply = possibleRules !! num (num, gen') = nextInRange 0 (length possibleRules - 1) gen (before, after) = fromJust (extractInfix (original ruleToApply) state) - state' = before ++ (replacement ruleToApply) ++ after - in if (possibleRules == []) then state else interpret state' rules gen' + state' <- case (replacement ruleToApply) of + ":::" -> getLine >>= (\x -> return (before ++ x ++ after)) + + '~':xs -> putStrLn xs >> return (before ++ after) + + x -> return (before ++ x ++ after) + + if (possibleRules == []) then return state else interpret state' rules gen' |