Rebol已应用Red语言创建地图功能如果有的话,Rebol是否适用于Red语言?
目前,apply
Red没有本地语言。您可以apply
自己写:
apply: func [
"Apply a function to a block of arguments"
fn [any-function!] "Function value to apply"
args [block!] "Block of arguments (to quote refinement use QUOTE keyword)"
/local refs vals val
][
refs: copy []
vals: copy []
set-val: [set val skip (append/only vals val)]
parse args [
some [
'quote set-val
| set val refinement! (append refs to word! val)
| set-val
]
]
do compose [(make path! head insert refs 'fn) (vals)]
]
它的工作方式与Rebol的有所不同apply
(因为我不喜欢Rebol的apply
语法)。如果定义一些功能:
f: func [
foo
/bar
baz
][
reduce [foo bar baz]
]
那么这是如何使用它apply
:
>> apply :f [1 /bar 1]
== [1 true 1]
>> apply :f [quote /bar]
== [/bar false none]
>> apply :f [quote /bar /bar 1]
== [/bar true 1]
有关详细信息,请参见http://red.qyz.cz/apply-and-ufcs.html。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句