diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-21 16:07:38 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-21 16:07:38 +0000 |
| commit | 7e8e88e7faa5e8bc90b5ef0ca86094edb080d5ff (patch) | |
| tree | ef99c467da033877686b074148079989d531a74f /challenge-048/mohammad-anwar | |
| parent | 5d9f0f10599d57a2cfdd0013dedb75a435f2319d (diff) | |
| download | perlweeklychallenge-club-7e8e88e7faa5e8bc90b5ef0ca86094edb080d5ff.tar.gz perlweeklychallenge-club-7e8e88e7faa5e8bc90b5ef0ca86094edb080d5ff.tar.bz2 perlweeklychallenge-club-7e8e88e7faa5e8bc90b5ef0ca86094edb080d5ff.zip | |
- Added solutions by Arne Sommer.
Diffstat (limited to 'challenge-048/mohammad-anwar')
| -rw-r--r-- | challenge-048/mohammad-anwar/perl/ch-2.pl | 1 | ||||
| -rw-r--r-- | challenge-048/mohammad-anwar/raku/ch-2.p6 | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/challenge-048/mohammad-anwar/perl/ch-2.pl b/challenge-048/mohammad-anwar/perl/ch-2.pl index 6e1e51c504..5cc5cc7bdf 100644 --- a/challenge-048/mohammad-anwar/perl/ch-2.pl +++ b/challenge-048/mohammad-anwar/perl/ch-2.pl @@ -6,7 +6,6 @@ use Date::Tiny; my $date = Date::Tiny->new(year => 2000, month => 1, day => 1); -# 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)) { diff --git a/challenge-048/mohammad-anwar/raku/ch-2.p6 b/challenge-048/mohammad-anwar/raku/ch-2.p6 index 073072680b..ad2c46ef2b 100644 --- a/challenge-048/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-048/mohammad-anwar/raku/ch-2.p6 @@ -5,7 +5,7 @@ use v6; sub MAIN() { my $fmt = { sprintf "%02d%02d%04d", .month, .day, .year }; my $date = Date.new(2000, 1, 1, formatter => $fmt); - while $date.year <= 2999 { + while $date.year <= 2299 { my $date-as-str = $date.Str; if $date-as-str eq $date-as-str.flip { say "$date-as-str is a Palindrome date."; |