Method code for $list.set_contains()

[Turn on line numbering]

---

arg @args;
var super, list, element;

// True if the first list given is a superset of all subsequent lists.
// False otherwise.  [] is a superset of [] and nothing else; anything is
// a superset of [].  If only one list is given, return true.
super = args ? args[1] : [];
for list in (delete(args, 1)) {
    for element in (list) {
        if (!(element in super))
            return 0;
    }
}
return 1;

---

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