冒泡排序

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);

my @e = qw/ 4 88 5 21 92 37 56 13 75 19 64 57 94 34 8 12 71 99 102 38/;    #20个元素的列表
say "before:";
foreach (@e) {     #调用子程序
    print $_," ";
}
say "nafrer:";
foreach (bubble_sort(@e)) {     #调用子程序
    print $_," ";
}

sub bubble_sort {   #冒泡排序子程序
    my @a = @_;    
    for my $i(0..$#a) {
        for my $j($i+1..$#a) {
            if($a[$j] < $a[$i]) {   
                @a[$i,$j] = @a[$j,$i];  #数组片段，交换i和j的值
            }
        }
    }
    return @a;
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!