Perl 거품정렬 구현

1 개요

Perl 거품정렬 구현

펄 거품정렬 구현

sub bubble_sort {
    my $a=shift;
    $size=@$a;
    for $i (0..$size-2) {
        for $j (1..$size-$i-1) {
            (@$a[$j-1],@$a[$j]) = (@$a[$j],@$a[$j-1]) if @$a[$j-1]>@$a[$j];
        }
    }
}
@arr = (9,1,22,4,0,-1,1,22,100,10);
bubble_sort(\@arr);
print join(',',@arr);
# -1,0,1,1,4,9,10,22,22,100

@arr = (9,1,22,4,0,-1,1,22,100,10);
$size = @arr;
for $i (0..$size-2) {
    for $j (0..$size-$i-2) {
        ($arr[$j],$arr[$j+1]) = ($arr[$j+1],$arr[$j]) if $arr[$j]>$arr[$j+1];
    }
}
print join(',', @arr);
# -1,0,1,1,4,9,10,22,22,100

2 같이 보기

• 거품정렬
• 정렬 구현
• 거품정렬 구현