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: | Line 957: | ||
my @test = (1, 3, 256, 0, 3, 4, -1); |
my @test = (1, 3, 256, 0, 3, 4, -1); |
||
print join(",", Bubble_Sort(@test));</lang> |
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}}== |
=={{header|Pop11}}== |
||