プログラムのトレイスの練習

問題02

問題02（※ Mozilla Firefox専用）

@a = (72, 129, 34);

foreach (@a){
    print "$_ ";
}
print "\n";

for( $j = 0; $j < @a - 1; $j++ ){
    for( $i = $j + 1; $i < @a; $i++ ){
         if( $a[$j] > $a[$i] ){
              $k = $a[$j];
              $a[$j] = $a[$i];
              $a[$i] = $k;
         }
    }
}
print "\n小さい順に並び替え\n\n";

foreach(@a){
    print "$_ ";
}
exit;