[REBOL] Re: newlines

From: lmecir:mbox:vol:cz at: 8-Nov-2001 23:01

Hi,

yet another algorithm:

method6: [
    opt [to "..." 2 skip t: sub]
    to end
]
sub: [
    any #"."
    copy u [
        to "..." 2 skip (w: [(t: change t u) sub]) |
        end (w: [(clear t)]) |
        to end (w: [(clear change t u)])
    ]
    w
]
parse/all s method6

1 · 2 · 3 · 4 · 5 ... 24 · 25 · [26] · 27 · 28 ... 43 · 44 · 45 · 46 · 47 · See whole thread