[REBOL] Re: newlines

From: nitsch-lists:netcologne at: 9-Nov-2001 10:30

RE: [REBOL] Re: newlines

Hi Joel,

another copy-style to benchmark :-)

	out: clear ""
	parse/all s [any [
			start: thru "..." end1: any "."
			(insert/part tail out start back end1)
		]]
	insert tail out start
	out
	; or [head insert clear s out] or [copy out]

here is also an in-place solution, but that is 20 times slower?!

	out: s
	parse s [any [
			start: thru "..." end1: any "."
			(
				change/part out start back end1
				out: skip out subtract index? back end1 index? start
			)
		]]
	change out start
	clear skip out length? start
	s

-Volker

[lmecir--mbox--vol--cz] wrote:

1 · 2 · 3 · 4 · 5 ... 28 · 29 · [30] · 31 · 32 ... 43 · 44 · 45 · 46 · 47 · See whole thread