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

loop

This commit is contained in:
sforman 2023-07-29 10:44:51 -07:00
parent 8fb48008cd
commit 36dc5b619f
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,17 +34,22 @@ joy stack expression =
joy_eval : String -> JList -> JList -> Result String (JList, JList) joy_eval : String -> JList -> JList -> Result String (JList, JList)
joy_eval symbol stack expression = joy_eval symbol stack expression =
case symbol of case symbol of
"branch" -> joy_branch stack expression "branch" -> joy_branch stack expression
"i" -> joy_i stack expression "i" -> joy_i stack expression
"dip" -> joy_dip stack expression "dip" -> joy_dip stack expression
"loop" -> joy_loop stack expression
"+" -> joy_binary_math_op (+) stack expression "+" -> joy_binary_math_op (+) stack expression
"-" -> joy_binary_math_op (-) stack expression "-" -> joy_binary_math_op (-) stack expression
"*" -> joy_binary_math_op (*) stack expression "*" -> joy_binary_math_op (*) stack expression
"/" -> joy_binary_math_op (//) stack expression "/" -> joy_binary_math_op (//) stack expression
"%" -> joy_binary_math_op (modBy) stack expression "%" -> joy_binary_math_op (modBy) stack expression
"and" -> joy_binary_math_op (Bitwise.and) stack expression "and" -> joy_binary_math_op (Bitwise.and) stack expression
"or" -> joy_binary_math_op (Bitwise.or) stack expression "or" -> joy_binary_math_op (Bitwise.or) stack expression
"xor" -> joy_binary_math_op (Bitwise.xor) stack expression "xor" -> joy_binary_math_op (Bitwise.xor) stack expression
"clear" -> Ok ([], expression) "clear" -> Ok ([], expression)
"concat" -> joy_concat stack expression "concat" -> joy_concat stack expression
"cons" -> joy_cons stack expression "cons" -> joy_cons stack expression
@ -56,6 +61,7 @@ joy_eval symbol stack expression =
"swaack" -> joy_swaack stack expression "swaack" -> joy_swaack stack expression
"swap" -> joy_swap stack expression "swap" -> joy_swap stack expression
"truthy" -> joy_truthy stack expression "truthy" -> joy_truthy stack expression
_ -> Err ("Unknown word: " ++ symbol) _ -> Err ("Unknown word: " ++ symbol)
@ -92,6 +98,20 @@ joy_dip stack expression =
Err msg -> Err msg Err msg -> Err msg
joy_loop : JList -> JList -> Result String (JList, JList)
joy_loop stack expression =
case pop_list(stack) of
Ok (loop_body, s0) ->
case pop_bool(s0) of
Ok (flag, s1) ->
if flag then
Ok (s1, loop_body ++ ((JoyList loop_body) :: (JoySymbol "loop") :: expression))
else
Ok (s1, expression)
Err msg -> Err msg
Err msg -> Err msg
joy_binary_math_op : (Int -> Int -> Int) -> JList -> JList -> Result String (JList, JList) joy_binary_math_op : (Int -> Int -> Int) -> JList -> JList -> Result String (JList, JList)
joy_binary_math_op op stack expression = joy_binary_math_op op stack expression =
case pop_int(stack) of case pop_int(stack) of