[REBOL] Re: Series manipulation Help

From: rotenca:telvia:it at: 9-Nov-2004 20:41

You could try this function:

    cut: func [series /part range][
        range: any [range 1]
        part: copy/part series range
        remove/part series range
        part
   ]

    b: [1 2 3 4 5 6]
    if tmp: find b 3 [
        x: cut/part  tmp 2
        insert tail tmp x
    ]

---
Ciao
Romano

1 · 2 · 3 · 4 · 5 · [6] · 7 · See whole thread