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

dip

This commit is contained in:
sforman 2023-07-29 10:28:31 -07:00
parent 9c381f0e8f
commit ed8f8f9edf
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,6 +35,7 @@ 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
"i" -> joy_i stack expression "i" -> joy_i stack expression
"dip" -> joy_dip 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
@ -63,6 +64,15 @@ joy_i stack expression =
Ok (a, s0) -> Ok (s0, a ++ expression) Ok (a, s0) -> Ok (s0, a ++ expression)
Err msg -> Err msg Err msg -> Err msg
joy_dip : JList -> JList -> Result String (JList, JList)
joy_dip stack expression =
case pop_list(stack) of
Ok (quoted_expression, s0) ->
case pop_any(s0) of
Ok (x, s1) -> Ok (s1, quoted_expression ++ (x :: 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 =