diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-08-15 09:29:57 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-08-15 09:29:57 +0800 |
| commit | dc517d06fad6d86d596d0e112eddf96a5931d1f2 (patch) | |
| tree | 5ab7e90e342989aecc4a5169ade1093583a128f5 | |
| parent | 0890a965e295bec398890f83a07ccb4f05841993 (diff) | |
| download | perlweeklychallenge-club-dc517d06fad6d86d596d0e112eddf96a5931d1f2.tar.gz perlweeklychallenge-club-dc517d06fad6d86d596d0e112eddf96a5931d1f2.tar.bz2 perlweeklychallenge-club-dc517d06fad6d86d596d0e112eddf96a5931d1f2.zip | |
Update ch-2.pl
| -rw-r--r-- | challenge-073/cheok-yin-fung/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-073/cheok-yin-fung/perl/ch-2.pl b/challenge-073/cheok-yin-fung/perl/ch-2.pl index 071e9f4dea..e8b9031376 100644 --- a/challenge-073/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-073/cheok-yin-fung/perl/ch-2.pl @@ -32,7 +32,7 @@ sub leastneigh { push @smallkids, 0; $youngest = $num; } - elsif ($num > $youngest) { # $num > $youngest + elsif ($num > $youngest) { push @smallkids, $youngest; } else { # $num == $youngest push @smallkids, 0; @@ -55,5 +55,5 @@ is_deeply( leastneigh([ 10, 47, 16, 50, 29, 21, 18, 20, 6, 30, 11]), is_deeply( leastneigh([2, 3, 5, 7, 11, 13, 17]), [0, 2, 2, 2, 2, 2, 2], "ascending sequences"); is_deeply( leastneigh([reverse (1..4)]), - [ 0 ,0,0,0], "descending first 4 positive integers"); + [0,0,0,0], "descending first 4 positive integers"); =cut |