Comma quibbling: Difference between revisions

m
(Mathematica)
Line 159:
<lang Mathematica>quibble[words___]:=
ToString@{StringJoin@@
Replace[Riffle[{words}, ", "], {prefix___, x1_penult_, ", ", x2_ult_}->{prefix, x1penult, " and ", x2ult}]}</lang>
{{out}}
<pre>
Anonymous user