JortSort: Difference between revisions
Content added Content deleted
No edit summary |
(→{{header|Common Lisp}}: working implementation) |
||
| Line 215: | Line 215: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
{{incorrect|sort is destructive}} |
|||
<lang lisp> |
<lang lisp> |
||
(defun jort-sort (x) (equalp x (sort x #'< ))) |
(defun jort-sort (x) (equalp (copy-seq x) (sort x #'< ))) |
||
</lang> |
</lang> |
||