Hi Volker,

<<
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
>>

The way how CHANGE/PART works really puzzles me.


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to