diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 13:34:26 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 13:34:26 +0800 |
| commit | ca18b6258f0f77b0e5b59867868bc5487e6f5105 (patch) | |
| tree | 3c68234584347bb959eeb184a8510d5b067eab2a | |
| parent | 0f3801458dc4793cf444bbe8ecaa9a05d2220ab4 (diff) | |
| download | perlweeklychallenge-club-ca18b6258f0f77b0e5b59867868bc5487e6f5105.tar.gz perlweeklychallenge-club-ca18b6258f0f77b0e5b59867868bc5487e6f5105.tar.bz2 perlweeklychallenge-club-ca18b6258f0f77b0e5b59867868bc5487e6f5105.zip | |
headache with any or all
| -rw-r--r-- | challenge-138/cheok-yin-fung/perl/ch-2.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/challenge-138/cheok-yin-fung/perl/ch-2.pl b/challenge-138/cheok-yin-fung/perl/ch-2.pl index af813e6c93..12f10a3e36 100644 --- a/challenge-138/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-138/cheok-yin-fung/perl/ch-2.pl @@ -35,6 +35,8 @@ sub split_number { # cannot fulfill the requirement. # (4th public version, 2021-11-15 05:09 GMT) + # OKAY WITH:::::: next if any { $_ > $upper } @$len_a; + # (1st public version, 2021-11-14 GMT) # NOT:::::: next if any { length $_ > $upper } @$len_a; # (2nd public version, 2021-11-15 04:35 GMT) |