選択ソート

 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