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

dip and cons

This commit is contained in:
Simon Forman 2022-09-14 15:04:07 -07:00
parent 129a5f776d
commit f86e1b2e7c
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
implementations/Nim/simplejoy.nim
View File

@ -325,6 +325,17 @@ proc branch(stack: JoyListType, expression: JoyListType, dictionary: JoyMapType)
return (s2, push_quote(false_body_node, expression), dictionary)
proc dip(stack: JoyListType, expression: JoyListType, dictionary: JoyMapType): (
JoyListType, JoyListType, JoyMapType) =
let (body_node, s0) = pop_list_node(stack)
let tos_as_list_of_one = s0.head ^^ empty_list.listVal
return (
s0.tail,
push_quote(body_node, push_quote_list(tos_as_list_of_one, expression)),
dictionary
)
#[
██████╗ ██████╗ ██████╗ ███████╗ ██╗ ██╗ ██████╗ ██████╗ ██████╗ ███████╗
██╔════╝██╔═══██╗██╔══██╗██╔════╝ ██║ ██║██╔═══██╗██╔══██╗██╔══██╗██╔════╝
@ -347,6 +358,13 @@ proc concat(stack: JoyListType, expression: JoyListType, dictionary: JoyMapType)
return (push_list((second ++ tos), s1), expression, dictionary)
proc cons(stack: JoyListType, expression: JoyListType, dictionary: JoyMapType): (
JoyListType, JoyListType, JoyMapType) =
let (tos, s0) = pop_list(stack)
if s0.isEmpty:
raise newException(ValueError, "Not enough values on stack.")
return (push_list((s0.head ^^ tos), s0.tail), expression, dictionary)
# ██╗███╗ ██╗████████╗███████╗██████╗ ██████╗ ██████╗ ███████╗████████╗███████╗██████╗
# ██║████╗ ██║╚══██╔══╝██╔════╝██╔══██╗██╔══██╗██╔══██╗██╔════╝╚══██╔══╝██╔════╝██╔══██╗
# ██║██╔██╗ ██║ ██║ █████╗ ██████╔╝██████╔╝██████╔╝█████╗ ██║ █████╗ ██████╔╝
@ -420,6 +438,10 @@ proc joy_eval(sym: string, stack: JoyListType, expression: JoyListType,
return clear(stack, expression, dictionary)
of "concat":
return concat(stack, expression, dictionary)
of "cons":
return cons(stack, expression, dictionary)
of "dip":
return dip(stack, expression, dictionary)
else:
raise newException(UnknownWordError, "Unknown: " & sym)