Method code for $list._vcolumnize()

[Turn on line numbering]

---

arg list, lines, cols, width, @other;
var outlist, line, i, j, sep;

[(sep ?= " ")] = other;
width -= sep.length();
lines = lines > list.length() ? list.length() : lines;
outlist = [];
for i in [1 .. lines] {
    line = list[i].pad(width);
    for j in [1 .. cols]
        (| (line = line + sep + list[i + j * lines].pad(width)) |);
    outlist += [line.trim('right)];
}
return outlist;

---

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