Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
Underscore (talk | contribs) (→{{header|Haskell}}: Changed to use Maybe's monadic interface.) |
Underscore (talk | contribs) (Added Perl 6.) |
||
Line 957:
my @test = (1, 3, 256, 0, 3, 4, -1);
print join(",", Bubble_Sort(@test));</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|#24 "Seoul"}}
<lang perl6>sub bubble_sort (@a is rw) {
for ^@a -> $i {
for $i ^..^ @a -> $j {
@a[$j] < @a[$i] and @a[$i, $j] = @a[$j, $i];
}
}
}</lang>
=={{header|Pop11}}==
|