跳转到内容

Rebol 编程/rejoin

来自维基教科书,开放的书籍,开放的世界
REJOIN block 

减少并连接一组值。

REJOIN 是一个函数值。

  • block -- 要减少和连接的值(类型:块)

源代码

[编辑 | 编辑源代码]
rejoin: func [
    "Reduces and joins a block of values." 
    block [block!] "Values to reduce and join"
][
    if empty? block: reduce block [return block] 
    append either series? first block [copy first block] [
        form first block
    ] next block
]
华夏公益教科书