diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-03 09:45:59 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-03 09:45:59 +0000 |
| commit | e3dbc383795f3dc9b240d492f8fe77ad8b4555ab (patch) | |
| tree | 1338073ce2db4c5a0683374bf460403ac73dd6ef | |
| parent | acb047372c5060d4b5c1337a281a1e25c41c9aea (diff) | |
| download | perlweeklychallenge-club-e3dbc383795f3dc9b240d492f8fe77ad8b4555ab.tar.gz perlweeklychallenge-club-e3dbc383795f3dc9b240d492f8fe77ad8b4555ab.tar.bz2 perlweeklychallenge-club-e3dbc383795f3dc9b240d492f8fe77ad8b4555ab.zip | |
added comments
| -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 .... |