Sort disjoint sublist: Difference between revisions
Added Arturo implementation
No edit summary |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 449:
{{output}}
<lang applescript>{7, 0, 5, 4, 3, 2, 1, 6}</lang>
=={{header|Arturo}}==
<lang rebol>sortDisjoint: function [data, indices][
result: new data
inds: new indices
sort 'inds
vals: new []
loop inds 'i -> 'vals ++ result\[i]
sort 'vals
loop.with:'j inds 'i -> result\[i]: vals\[j]
return result
]
d: [7 6 5 4 3 2 1 0]
print sortDisjoint d [6 1 7]</lang>
{{out}}
<pre>7 0 5 4 3 2 1 6</pre>
=={{header|AutoHotkey}}==
| |||