join.red

Red[]

join: func [ 
	"Reduce values in a block and joins them into a string" 
	block [block!] 
	/with "Add delimiter between values" 
		delimiter 
	/trim "Remove NONE values" 
] [ 
	if empty? block [return ""] 
	block: reduce block
	if trim [block: system/words/trim block] 
	if with [ 
		with: make block! 2 * length? block 
		foreach value block [repend with [value delimiter]] 
		block: head remove back tail with 
	] 
	append copy "" block 
]