Sort disjoint sublist: Difference between revisions
Content deleted Content added
Added zkl |
Add Nimrod |
||
Line 863:
Idx: 7 2 8
</pre>
=={{header|Nimrod}}==
<lang nimrod>import algorithm
proc sortDisjoinSublist[T](data: var seq[T], indices: seq[int]) =
var indices = indices
sort indices, cmp[T]
var values: seq[T] = @[]
for i in indices: values.add data[i]
sort values, cmp[T]
for j, i in indices: data[i] = values[j]
var d = @[7, 6, 5, 4, 3, 2, 1, 0]
sortDisjoinSublist(d, @[6, 1, 7])
echo d</lang>
Output:
<pre>@[7, 0, 5, 4, 3, 2, 1, 6]</pre>
=={{header|Objective-C}}==
| |||