選択ソート

sub selection_sort {
    my @nums = @_;;
    for (my $x = 0; $x < @nums; $x++) {
        my $min = $x;
        for (my $i = $x; $i < scalar @nums; $i++) {
            if ($nums[$i] < $nums[$min]) {
                $min = $i;
            }
        }
        my $temp = $nums[$x];
        $nums[$x] = $nums[$min];
        $nums[$min] = $temp;
    }
    say Dumper \@nums;
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

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