Method code for $list.set_difference()

[Turn off line numbering]

---

  1: arg @args;
  2: var set, list, element;
  3: 
  4: // Usage:  diff(set 1, set 2, ..., set n)
  5: // Returns all elements of set 1 that are not in sets 2..n
  6: if (!args)
  7:     return [];
  8: set = args[1];
  9: anticipate_assignment();
 10: for list in (delete(args, 1)) {
 11:     for element in (list)
 12:         set = setremove(set, element);
 13: }
 14: return set;

---

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