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

3 lines
120 B
Text

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