たいしたネタもないので…

ここ最近ソートに絡む記事を書いていたので
ついでに、バブルソートでも書いてみた。
（近いうちに更新する内容の仕込みです．．．）

use strict;
use warnings;
#bubble-sort
my $num = 20;
my @array;

for(my $i=0; $i<$num; $i++){  push @array, int(rand(100)) + 1; } print "Before-sort:@array\n"; my $loop = $num; while($loop){  for(my $i=$num-1;$i>$num-$loop-1;$i--){
($array[$i], $array[$i-1]) = ($array[$i-1], $array[$i]) if(($array[$i] - $array[$i-1])<0);