Method code for $list.set_difference()

[Turn on line numbering]

---

arg @args;
var set, list, element;

// Usage:  diff(set 1, set 2, ..., set n)
// Returns all elements of set 1 that are not in sets 2..n
if (!args)
    return [];
set = args[1];
anticipate_assignment();
for list in (delete(args, 1)) {
    for element in (list)
        set = setremove(set, element);
}
return set;

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]