sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

branch

This commit is contained in:
sforman 2023-07-29 10:38:12 -07:00
parent ed8f8f9edf
commit 8fb48008cd
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
implementations/Elm/src/Joy.elm
View File

@ -34,6 +34,7 @@ joy stack expression =
joy_eval : String -> JList -> JList -> Result String (JList, JList)
joy_eval symbol stack expression =
case symbol of
"branch" -> joy_branch stack expression
"i" -> joy_i stack expression
"dip" -> joy_dip stack expression
"+" -> joy_binary_math_op (+) stack expression
@ -58,6 +59,23 @@ joy_eval symbol stack expression =
_ -> Err ("Unknown word: " ++ symbol)
joy_branch : JList -> JList -> Result String (JList, JList)
joy_branch stack expression =
case pop_list(stack) of
Ok (true_body, s0) ->
case pop_list(s0) of
Ok (false_body, s1) ->
case pop_bool(s1) of
Ok (flag, s2) ->
if flag then
Ok (s2, true_body ++ expression)
else
Ok (s2, false_body ++ expression)
Err msg -> Err msg
Err msg -> Err msg
Err msg -> Err msg
joy_i : JList -> JList -> Result String (JList, JList)
joy_i stack expression =
case pop_list(stack) of
@ -204,6 +222,10 @@ pop_list : JList -> Result String (JList, JList)
pop_list stack = pop_any stack |> andThen isnt_list
pop_bool : JList -> Result String (Bool, JList)
pop_bool stack = pop_any stack |> andThen isnt_bool
pop_any : JList -> Result String (JoyType, JList)
pop_any stack =
case stack of
@ -232,6 +254,14 @@ isnt_list (item, stack) =
Err "Not a list."
isnt_bool : (JoyType, JList) -> Result String (Bool, JList)
isnt_bool (item, stack) =
case item of
JoyTrue -> Ok (True, stack)
JoyFalse -> Ok (False, stack)
_ -> Err "Not a Boolean value."
-- Printer