diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-21 10:16:57 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-21 10:16:57 +0000 |
| commit | 170c09b1653da44f10c6ec6349b987ad80b4eb36 (patch) | |
| tree | 0e723a8915a1b75e5e59221b4abfaef29c3858e6 /challenge-048 | |
| parent | 017fc15b3103aa64b81399bcecfbaf2022e2c1d8 (diff) | |
| download | perlweeklychallenge-club-170c09b1653da44f10c6ec6349b987ad80b4eb36.tar.gz perlweeklychallenge-club-170c09b1653da44f10c6ec6349b987ad80b4eb36.tar.bz2 perlweeklychallenge-club-170c09b1653da44f10c6ec6349b987ad80b4eb36.zip | |
- Slight improvement to Palindrom date task.
Diffstat (limited to 'challenge-048')
| -rw-r--r-- | challenge-048/mohammad-anwar/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-048/mohammad-anwar/perl/ch-2.pl b/challenge-048/mohammad-anwar/perl/ch-2.pl index 22e71b25e3..6e1e51c504 100644 --- a/challenge-048/mohammad-anwar/perl/ch-2.pl +++ b/challenge-048/mohammad-anwar/perl/ch-2.pl @@ -6,7 +6,8 @@ use Date::Tiny; my $date = Date::Tiny->new(year => 2000, month => 1, day => 1); -while ($date->year <= 2999) { +# Date cannot be higher than 31; thus year must be lower than 2300 +while ($date->year <= 2299) { my $date_as_str = sprintf("%02d%02d%04d", $date->month, $date->day, $date->year); if ($date_as_str eq reverse($date_as_str)) { print "$date_as_str is a Palindrome date.\n"; |