Method code for $list.set_intersection()

[Turn on line numbering]

---

arg l1, l2;
var i, out;

// set intersection if the arguments
out = [];
for i in (l1) {
    if (i in l2)
        out = out.setadd(i);
}
return out;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit