ListUnique

Function: list ListUnique(list lAll);

Given a list of elements, strips out any duplicates in that list, and returns the de-duped list.

See also: Lists

list ListUnique( list lAll ) {
    integer i;
    list lFiltered = llList2List(lAll, 0, 0);
    integer iAll = llGetListLength( lAll );
    for (i = 1; i < iAll; ++i) {
        if ( llListFindList(lFiltered, llList2List(lAll, i, i) ) == -1 ) {
            lFiltered += llList2List(lAll, i, i);
        }
    }
    return lFiltered;
}

Example:

list mylist = ListUnique(["A", "A", "B", "C", "C", "B"])

would return the list:

["A", "B", "C"]

Originated in a November 2004 thread led by Chromal Brodsky in the SL Scripting Forum. http://forums-archive.secondlife.com/54/30/28137/1.html

Function: list ListSortedAndUnique(list input, integer ascending)

If you don't need to maintain the order of items (or want them sorted anyway), the following code is consistently about 2x faster on short lists, and 3-5x faster on lists with hundreds of items.

list ListSortedAndUnique(list input, integer ascending) {
    input = llListSort(input, 1, ascending);
    integer index;
    list    last   = llList2List(input, 1, 1);
    list    result = last;
    for (index = 1 - llGetListLength(input); index < 0; ++index) {
        list current =  llList2List(input, index, index);
        if (llListFindList(current, last) < 0) {
            last    = current;
            result += last; 
        }
    }
    return result;
}