Sort numbers lexicographically: Difference between revisions
Content added Content deleted
m (→{{header|APL}}) |
(→{{header|Common Lisp}}: Implemented Common Lisp version) |
||
| Line 377: | Line 377: | ||
{{out}} |
{{out}} |
||
<pre>[1, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2, 20, 21, 3, 4, 5, 6, 7, 8, 9]</pre> |
<pre>[1, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2, 20, 21, 3, 4, 5, 6, 7, 8, 9]</pre> |
||
=={{header|Common Lisp}}== |
|||
<lang lisp> |
|||
(defun lexicographic-sort (n) |
|||
(sort (alexandria:iota n :start 1) #'string<= :key #'write-to-string)) |
|||
(lexicographic-sort 13) |
|||
</lang> |
|||
{{out}} |
|||
<pre>(1 10 11 12 13 2 3 4 5 6 7 8 9)</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||