Perl/ソートアルゴリズム/バブルソートの変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/ソートアルゴリズム/バブルソートへ行く。
Perl/ソートアルゴリズム/バブルソートの差分を削除

* バブルソート [#e1b9ab98]

 sub bubble_sort {
     my @nums = @_;;
     for ( my $x = 0 ; $x < @nums - 1 ; $x++ ) {
         for ( my $i = @nums - 1 ; $i > $x ; $i-- ) {
             if ( $nums[ $i - 1 ] > $nums[$i] ) {
                 my $temp = $nums[ $i - 1 ];
                 $nums[ $i - 1 ] = $nums[$i];
                 $nums[$i] = $temp;
             }
         }
     }

     say Dumper \@nums;
 }