[REBOL] Re: newlines
From: lmecir:mbox:vol:cz at: 8-Nov-2001 11:38
Hi myself, how about: while [s: find/tail s "..."] [ parse s [any #"." t:] s: remove/part back s t ] b) Some algorithms are complicated, that is why a different approach (not using REPLACE) should be considered too: while [s: find s #"."] [ parse next s [any #"." t:] s: either (index? s) + 2 < (index? t) [ remove/part skip s 2 t ] [t] ]