From Wikibooks, open books for an open world
Reduces and joins a block of values.
REJOIN is a function value.
- block -- Values to reduce and join (Type: 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 ]