13 lines
371 B
Text
13 lines
371 B
Text
quibble[enum] :=
|
|
{
|
|
list = toArray[enum] // This makes it work on any enumerating expression
|
|
size = length[list]
|
|
if size >= 2
|
|
return "{" + join[", ", first[list, size-1]] + " and " + last[list] + "}"
|
|
else
|
|
return "{" + join["", list] + "}"
|
|
}
|
|
|
|
data = [[], ["ABC"], ["ABC", "DEF"], ["ABC", "DEF", "G", "H"]]
|
|
for line = data
|
|
println[quibble[line]]
|