all tasks

Task/Sorting-algorithms-Selection-sort/Perl-6/sorting-algorithms-selection-sort.pl6

@@ -0,0 +1,11 @@
+sub selection_sort ( @a is copy ) {
+    for 0 ..^ @a.end -> $i {
+        my $min = [ $i+1 .. @a.end ].min: { @a[$_] };
+        @a[$i, $min] = @a[$min, $i] if @a[$i] > @a[$min];
+    }
+    return @a;
+}
+
+my @data = 22, 7, 2, -5, 8, 4;
+say 'input  = ' ~ @data;
+say 'output = ' ~ @data.&selection_sort;