Re: [問題] 請問個排序的問題

[LiloHuang (夏夜晚風)]

※ 引述《cutecpu (可愛中央處理器)》之銘言：
: #!/usr/bin/perl
sub mysort{#這邊用bubble sort
    for($i=1;$i<=$#_;$i++) {
         my $stop=0; 
         for($j=0;$j<=$#_-$i;$j++) {
              if($_[$j]>$_[$j+1]) {
                 ($_[$j],$_[$j+1])=($_[$j+1],$_[$j]);
                 $stop=1; 
              }
         }
         break unless($stop); 
    }
 }

幫你加速一下

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.127.73.200