diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2022-01-19 19:41:18 +0000 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2022-01-19 19:41:18 +0000 |
| commit | 41ffff4cdd277812f256e75acdb5f62e3b0dc906 (patch) | |
| tree | 10850a6f0692a4af4505c94a642c5679055be8e7 | |
| parent | 139250ef924eb1dd701e7da188927935fabb0726 (diff) | |
| download | perlweeklychallenge-club-41ffff4cdd277812f256e75acdb5f62e3b0dc906.tar.gz perlweeklychallenge-club-41ffff4cdd277812f256e75acdb5f62e3b0dc906.tar.bz2 perlweeklychallenge-club-41ffff4cdd277812f256e75acdb5f62e3b0dc906.zip | |
case insensitive
| -rw-r--r-- | challenge-148/steven-wilson/perl/ch-01.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-148/steven-wilson/perl/ch-01.pl b/challenge-148/steven-wilson/perl/ch-01.pl index 2132073e65..28e7f90674 100644 --- a/challenge-148/steven-wilson/perl/ch-01.pl +++ b/challenge-148/steven-wilson/perl/ch-01.pl @@ -14,5 +14,5 @@ my $max = 100; say "Eban Numbers <= $max:"; for ( 1 .. $max ) { - ( num2en($_) =~ /e/ ) ? next : say $_; + ( num2en($_) =~ /e/i ) ? next : say $_; } |