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