Method code for $list.lcolumnize()

[Turn on line numbering]

---

arg list, @args;
var line, part, lines, max, cols, col, width, len, sep;

[(len ?= (| sender().linelen() |) || 78), (sep ?= " ")] = args;
lines = [];
line = "";
max = .element_maxlength(list) + sep.length();
cols = len > max ? len / max : 1;
width = len / cols - sep.length();
col = cols;
for part in (list) {
    col = col - 1;
    if (!col) {
        lines = lines + [line + part];
        line = "";
        col = cols;
        continue;
    }
    line = line + part.pad(width);
}
if (line)
    return lines + [line];
return lines;

---

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