RosettaCodeData/Task/Comma-quibbling/TXR/comma-quibbling.txr
2017-09-25 22:28:19 +02:00

3 lines
120 B
Text

(defun quib (list)
(tree-bind (: last . lead) (reverse list)
`{@{(nreverse lead) ", "}@(if lead " and ")@last}`))