バブルソート

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

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS