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

stack, swaack

This commit is contained in:
sforman 2023-07-29 10:00:16 -07:00
parent c50f2a7541
commit fcdf916013
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,6 +49,8 @@ joy_eval symbol stack expression =
"first" -> joy_first stack expression "first" -> joy_first stack expression
"pop" -> joy_pop stack expression "pop" -> joy_pop stack expression
"rest" -> joy_rest stack expression "rest" -> joy_rest stack expression
"stack" -> joy_stack stack expression
"swaack" -> joy_swaack stack expression
_ -> Err ("Unknown word: " ++ symbol) _ -> Err ("Unknown word: " ++ symbol)
@ -118,6 +120,18 @@ joy_rest stack expression =
Err msg -> Err msg Err msg -> Err msg
joy_stack : JList -> JList -> Result String (JList, JList)
joy_stack stack expression =
Ok ((push_list stack stack), expression)
joy_swaack : JList -> JList -> Result String (JList, JList)
joy_swaack stack expression =
case pop_list(stack) of
Ok (s, s0) -> Ok ((push_list s0 s), expression)
Err msg -> Err msg
push_int : Int -> JList -> JList push_int : Int -> JList -> JList
push_int i stack = (JoyInt i) :: stack push_int i stack = (JoyInt i) :: stack