Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS 

SPLIT-UNIQUE - split a block into unique and duplicate values

    split-unique: func [block [any-block!] /local uniq dupe dest] [
        uniq: copy []
        dupe: copy []
        foreach item block [
            dest: either find/only uniq item [dupe] [uniq]
            append/only dest item
        ]
        reduce [uniq dupe]
    ]
to group split unique REBOL partition split-unique by gregg.irwin on Nov 01, 2006
« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS