[REBOL] Re: Exclude Problems

From: ammoncooke:yah:oo at: 28-Sep-2001 5:50

Oh, I didn't catch that. Here's the fixed code!

excl-only: func [
    "This is the Exclude function that doesn't exclude duplicates"
    block1 "The original block"
    block2 "The block to be 'excluded'"
][
    tmp-block: copy block1
    either (length? b) > 1[
        repeat val block2 [remove find tmp-block val]
    ][
        remove find tmp-block block2
    ]
    either not none? tmp-block[
         return head tmp-block
    ][
        return tmp-block
    ]
]

Enjoy!!
Ammon

1 · 2 · 3 · 4 · 5 · 6 · 7 · 8 · [9] · 10 · 11 · 12 · 13 · 14 · See whole thread