Set consolidation: Difference between revisions
Content added Content deleted
(→{{header|C}}: Added Common Lisp) |
m (→{{header|Common Lisp}}: "trans" template used) |
||
Line 507: | Line 507: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
{{trans|Racket}} |
|||
<lang lisp>(defun consolidate (ss) |
<lang lisp>(defun consolidate (ss) |
||
(labels ((comb (cs s) |
(labels ((comb (cs s) |