diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-04-05 03:11:15 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-04-05 03:11:15 +0100 |
| commit | 1271facbbd3daf4e13e2aa23b0ec4c111c5ddbbe (patch) | |
| tree | ea86cdb2389f24cde0658e867d560b966c8e0eb6 | |
| parent | 42582d8341e1f834c42b879947da312bbd5f2747 (diff) | |
| parent | d7e5aa02aa975fc2a4d52236eded20e8eed44960 (diff) | |
| download | perlweeklychallenge-club-1271facbbd3daf4e13e2aa23b0ec4c111c5ddbbe.tar.gz perlweeklychallenge-club-1271facbbd3daf4e13e2aa23b0ec4c111c5ddbbe.tar.bz2 perlweeklychallenge-club-1271facbbd3daf4e13e2aa23b0ec4c111c5ddbbe.zip | |
Merge pull request #3829 from E7-87-83/newt
fix a line...
| -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; |