diff options
| -rwxr-xr-x | challenge-137/jo-37/perl/ch-1.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-137/jo-37/perl/ch-1.pl b/challenge-137/jo-37/perl/ch-1.pl new file mode 100755 index 0000000000..c4c36da145 --- /dev/null +++ b/challenge-137/jo-37/perl/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl -s + +use v5.16; +use warnings; +use DateTime; + +# Maybe I'm missing something: The year's last day's week number is the +# year's week count. +say join ' ', grep DateTime->new(year => $_, month => 12, day => 31, + time_zone => 'floating')->week_number == 53, 1900 .. 2100; + |