バブルソート

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

Last-modified: 2012-01-13 (金) 19:00:26 (2801d)