Perl/ソートアルゴリズム/バブルソートのバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/ソートアルゴリズム/バブルソートへ行く。
- 1 (2012-01-13 (金) 19:00:16)

バブルソート

 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;
 }