RosettaCodeData/Task/Comma-quibbling/Mathematica/comma-quibbling.math
2023-07-01 13:44:08 -04:00

4 lines
148 B
Text

quibble[words___] :=
ToString@{StringJoin@@
Replace[Riffle[{words}, ", "],
{most__, ", ", last_} -> {most, " and ", last}]}