diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-02-18 21:33:37 -0500 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-02-18 21:33:37 -0500 |
| commit | c9e520b389ef5a045d3b9f6cf0d21c48cd041de5 (patch) | |
| tree | 877582c0b9fa8a052c74247d074ee0e325449d43 /challenge-048 | |
| parent | 9e7e6f6df37e27f13020b3cb2d7a7cc6885e803e (diff) | |
| download | perlweeklychallenge-club-c9e520b389ef5a045d3b9f6cf0d21c48cd041de5.tar.gz perlweeklychallenge-club-c9e520b389ef5a045d3b9f6cf0d21c48cd041de5.tar.bz2 perlweeklychallenge-club-c9e520b389ef5a045d3b9f6cf0d21c48cd041de5.zip | |
sped up by only checking the valid month for each year
Diffstat (limited to 'challenge-048')
| -rw-r--r-- | challenge-048/walt-mankowski/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-048/walt-mankowski/perl/ch-2.pl b/challenge-048/walt-mankowski/perl/ch-2.pl index b7e51255a0..3115c0cd8d 100644 --- a/challenge-048/walt-mankowski/perl/ch-2.pl +++ b/challenge-048/walt-mankowski/perl/ch-2.pl @@ -13,7 +13,8 @@ use DateTime; # on October 2, 2001 as it is represented as 10022001. for my $year (2000..2999) { - for my $month (1..12) { + my $month = reverse(substr($year, 2, 2)); + if ($month >= 1 && $month <= 12) { my $dt = DateTime->new(year => $year, month => $month); for my $day (1..$dt->month_length()) { my $date = sprintf("%02d%02d%d", $month, $day, $year); |