Anonymous user
Sorting algorithms/Selection sort: Difference between revisions
m
→{{header|Perl 6}}
Line 1,692:
<lang perl6>sub selectionSort(@tmp) {
for ^@tmp -> $i {
my $min = $i; @tmp[$i, $_] = @tmp[$_, $i] if @tmp[$min] > @tmp[$_] for $i^..^@tmp;
}
return @tmp;
| |||