Sorting algorithms/Bubble sort: Difference between revisions

==[[Perl]]==

'''Interpreter:''' perl 5.8.8

# Sorts an array in place and returns a copy

sub bubble_sort (@) {

my $len = @_ - 1;

for my $i (0..$len-1){

for my $j ($i+1..$len){

@_[$i,$j] = @_[$j,$i] if $_[$j] lt $_[$i];

}

}

return @_;

}

# Usage

@a = qw/G F C A B E D/;

bubble_sort(@a);

N.B. Of course, there's no need to implement bubble sort in perl as it has sort built-in.