diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-04-05 09:58:07 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-04-05 09:58:07 +0800 |
| commit | d7e5aa02aa975fc2a4d52236eded20e8eed44960 (patch) | |
| tree | 9bd6805aece8873cd721828a578d2704520cd035 | |
| parent | 0594f4a7e117026ec4eee4bf2de65cecf03f4396 (diff) | |
| download | perlweeklychallenge-club-d7e5aa02aa975fc2a4d52236eded20e8eed44960.tar.gz perlweeklychallenge-club-d7e5aa02aa975fc2a4d52236eded20e8eed44960.tar.bz2 perlweeklychallenge-club-d7e5aa02aa975fc2a4d52236eded20e8eed44960.zip | |
fix a line again
| -rw-r--r-- | challenge-106/cheok-yin-fung/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-106/cheok-yin-fung/perl/ch-1.pl b/challenge-106/cheok-yin-fung/perl/ch-1.pl index 31d753c32b..f3b27f3a68 100644 --- a/challenge-106/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-106/cheok-yin-fung/perl/ch-1.pl @@ -29,7 +29,7 @@ sub max_ind { sub selection_sort { swap_arr_N(0, max_ind(@N)); - for my $i (1..$#N-1) { + for my $i (1..$#N) { swap_arr_N($i, $i+max_ind(@N[$i..$#N])); my $dif = $N[$i-1] - $N[$i]; $max_dif = $dif if $dif > $max_dif; |