Rosetta Code

JortSort: Difference between revisions

Page Discussion

JortSort (view source)

Revision as of 16:01, 14 April 2018

23 bytes removed ,  6 years ago
→‎{{header|Common Lisp}}: working implementation
No edit summary
(→‎{{header|Common Lisp}}: working implementation)
Line 215:
 
=={{header|Common Lisp}}==
{{incorrect|sort is destructive}}
<lang lisp>
(defun jort-sort (x) (equalp (copy-seq x) (sort x #'< )))
</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/255266"