- 追加された行はこの色です。
- 削除された行はこの色です。
- Perl/ソートアルゴリズム/選択ソート へ行く。
- Perl/ソートアルゴリズム/選択ソート の差分を削除
* 選択ソート [#r4c677d1] 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; }