Skip to content

Instantly share code, notes, and snippets.

@iArnold

iArnold/red-rejoin.red

Created March 15, 2016 19:23
Show Gist options
  • Save iArnold/a9e947cee25d73d4c2a2 to your computer and use it in GitHub Desktop.
Save iArnold/a9e947cee25d73d4c2a2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
red-rejoin.red
Red [ "Reduces and joins a block of values."
]
rejoin: func [
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
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment