Compare length of two strings: Difference between revisions

</pre>

=={{header|Common Lisp}}==

<syntaxhighlight lang="lisp">

(defun sort-and-print-strings (strings)

(dolist (s (sort (copy-list strings) #'> :key #'length))

(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