/Core 2.5 and rejoin
[1/1] from: jelinem1::nationwide::com at: 26-Mar-2001 14:02
I just KNOW if I upgrade I'll break my MUD server in itsy-bitsy pieces.
I'll do so eventually, when I get brave enough...
I liked some of the things I'd read in the preliminary docs, but does 2.5
also add a /with refinement to rejoin? IMO that seemed like one of those
obvious oversights once you release the initial product. Until this comes
out in /Core here's mine (cf. the current source of rejoin):
rejoin: func [
"Reduces and joins a block of values - allows /with refinement."
block [block!] "Values to reduce and join"
/with
join-thing "Value to place in between each element"
][
block: reduce block
if with [
while [not tail? block: next block][insert block join-thing block:
next block]
block: head block
]
append
either series? first block [copy first block] [form first block]
next block
]
- Michael Jelinek