diff options
| -rw-r--r-- | challenge-137/james-smith/perl/ch-1.pl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/challenge-137/james-smith/perl/ch-1.pl b/challenge-137/james-smith/perl/ch-1.pl index 4ab92a0091..9b8c0fcca9 100644 --- a/challenge-137/james-smith/perl/ch-1.pl +++ b/challenge-137/james-smith/perl/ch-1.pl @@ -4,9 +4,6 @@ use strict; use warnings; use feature qw(say); -use Test::More; -use Benchmark qw(cmpthese timethis); -use Data::Dumper qw(Dumper); my $start_day = 1; ## Jan 1st 1900 was a Monday. @@ -16,7 +13,7 @@ foreach my $year ( 1900 .. 2100 ) { $start_day = ( $start_day + 1 + $is_leap_year ) % 7; } -## Compute if leap year? +## First compute if leap year? ## Long year if starts on Thursday (day 4) or Wednesday (day 3) in a leap year ## Next year starts on the next day of the week Mon->Tues .... -## except in a leap year when it moves 2 Mon->Wed +## except in a leap year when it moves 2 Mon->Wed .... |