Compare length of two strings: Difference between revisions
Add Common Lisp
Hendursaga (talk | contribs) m (Fix spelling errors) |
(Add Common Lisp) |
||
Line 726:
"Rosetta" (length: 7)
"Code" (length: 4)
</pre>
=={{header|Common Lisp}}==
<syntaxhighlight lang="lisp">
(defun sort-and-print-strings (strings)
(dolist (s (sort (copy-list strings)
(lambda (s1 s2) (> (length s1) (length s2)))))
(format t "~A ~A~%" (length s) s)))
(sort-and-print-strings '("Lisp" "stands" "for" "List" "Processing"))
</syntaxhighlight>
{{out}}
<pre>
10 Processing
6 stands
4 Lisp
4 List
3 for
</pre>
| |||