Comma quibbling: Difference between revisions
Content deleted Content added
→{{header|TXR}}: Since list is locally allocated and never used again, use nreverse on it. |
|||
Line 3,149: | Line 3,149: | ||
=={{header|TXR}}== |
=={{header|TXR}}== |
||
<lang txrlisp> |
<lang txrlisp>(defun quib (list) |
||
(defun quib (list) |
|||
(tree-bind (last . lead) (reverse list) |
(tree-bind (last . lead) (reverse list) |
||
`{@{(nreverse lead) ", "}@(if lead " and ")@last}`))</lang> |
`{@{(nreverse lead) ", "}@(if lead " and ")@last}`))</lang> |