Difference between revisions of "ListXequY"
Jump to navigation
Jump to search
Omei Qunhua (talk | contribs) (Yep, examples should compile. And I couldn't see the point in the llList2CSV) |
Omei Qunhua (talk | contribs) (Correct further problems with ListXequY (could have give false +ve on different length lists). Tighten loop.) |
||
| Line 15: | Line 15: | ||
<lsl> | <lsl> | ||
integer ListXequY(list lx, list ly) { | integer ListXequY(list lx, list ly) | ||
return ( ListXnotY(lx, ly) == [] ); | { | ||
return ( (llGetListLength(lx) == llGetListLength(ly) ) & ( ListXnotY(lx, ly) == [] ) ); | |||
} | } | ||
</lsl> | </lsl> | ||
| Line 27: | Line 28: | ||
list l2 = ["a",1,"b",3,"c",3]; | list l2 = ["a",1,"b",3,"c",3]; | ||
integer ListXequY(list lx, list ly) { | integer ListXequY(list lx, list ly) | ||
return ( ListXnotY(lx, ly) == [] ); | { | ||
return ( (llGetListLength(lx) == llGetListLength(ly) ) & ( ListXnotY(lx, ly) == [] ) ); | |||
} | } | ||
list ListXnotY(list lx, list ly) {// return elements in X list that are not in Y list | list ListXnotY(list lx, list ly) {// return elements in X list that are not in Y list | ||
list lz | list lz; | ||
integer i | integer i = llGetListLength(lx); | ||
while(i--) | |||
if ( !~llListFindList(ly,llList2List(lx,i,i)) ) | |||
lz += llList2List(lx,i,i); | lz += llList2List(lx,i,i); | ||
return lz; | return lz; | ||
Revision as of 07:10, 21 April 2014
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
Function: integer ListXequY(list lx, list ly);
Answers the question: is list X identical to list Y?
Returns the number 1 if true, 0 if false
Note: requires also the function ListXnotY .
The opposite function is ListXneqY .
See also: Lists
<lsl> integer ListXequY(list lx, list ly) {
return ( (llGetListLength(lx) == llGetListLength(ly) ) & ( ListXnotY(lx, ly) == [] ) );
} </lsl>
Example:
<lsl> list l1 = ["a","b","c", 1,2,3]; list l2 = ["a",1,"b",3,"c",3];
integer ListXequY(list lx, list ly) {
return ( (llGetListLength(lx) == llGetListLength(ly) ) & ( ListXnotY(lx, ly) == [] ) );
}
list ListXnotY(list lx, list ly) {// return elements in X list that are not in Y list
list lz; integer i = llGetListLength(lx); while(i--)
if ( !~llListFindList(ly,llList2List(lx,i,i)) )
lz += llList2List(lx,i,i); return lz;
}
default{
state_entry() {
llSay(0, "Are we the same lists? " + (string)ListXequY(l1,l2));
//will say in this example: 0 , meaning No
}
} </lsl>
Posted with the kind permission of Very Keynes, who originated this script June 2007 in the SL scripters forum http://forums-archive.secondlife.com/54/e4/194138/1.html