Method code for $list.nth_element_maxlength()

[Turn off line numbering]

---

  1: arg lists, element;
  2: var list;
  3: 
  4: // Returns longest string whose index is element in one of the lists in
  5: // lists.
  6: if (type(element) != 'integer)
  7:     throw(~type, "Second argument is not an integer");
  8: if (type(lists) != 'list)
  9:     throw(~type, "First argument is not a list");
 10: return map list in (lists) to (tostr(list[element]).length()).max();

---

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