Sort using a custom comparator: Difference between revisions

=={{header|Quackery}}==

<lang Quackery> [ $ "" swap

witheach

[ upper join ] ] is upper$ ( $ --> )

[ over size over size

2dup = iff

[ 2drop upper$

swap upper$ $< ]

else

[ 2swap 2drop < ] ] is comparator ( $ $ -- b )

$ ‘here are Some sample strings to be sorted’

nest$ sortwith comparator

witheach [ echo$ sp ]

cr cr

$ "sharna pax and hed on a poal when the ardship of Cambry come out of his hoal"

nest$ sortwith comparator

witheach [ echo$ sp ]</lang>

{{out}}

<pre>strings sample sorted here Some are be to

ardship Cambry sharna come hoal poal when and hed his out pax the of of on a </pre>