Sort disjoint sublist: Difference between revisions
m
→{{header|Factor}}: change word name and stack effect to indicate the word mutates
(Added Wren) |
m (→{{header|Factor}}: change word name and stack effect to indicate the word mutates) |
||
Line 853:
=={{header|Factor}}==
<lang factor>: disjoint-sort! ( values indices --
over <enumerated> nths unzip swap [ natural-sort ] bi@
pick [ set-nth ] curry 2each ;</lang>
|