Revision as of 16:01, 14 April 2018 (view source) rosettacode>Aaronm (→‎{{header\|Common Lisp}}: working implementation) ← Older edit		Revision as of 06:22, 4 June 2018 (view source) Chunes (talk \| contribs) (added Factor) Newer edit →
Line 246: iex(3)> jortsort.([1,2,5,4]) false</lang> =={{header\|Factor}}== <lang factor>USING: kernel sorting ; : jortsort ( seq -- ? ) dup natural-sort = ;</lang> =={{header\|FreeBASIC}}==

JortSort (view source)