diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-11-05 15:16:22 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-11-05 15:16:22 +0100 |
| commit | bb1aae2996b85cd3bce4bcfd73003de20a734959 (patch) | |
| tree | 78911a628f006015ff43f21ceeab8777bc81fca2 | |
| parent | 1708c4f1fac03e6a416ce2d5bc5b6ec6a953e878 (diff) | |
| parent | 2173e37687d0570bf8bda986272169af51c88a60 (diff) | |
| download | perlweeklychallenge-club-bb1aae2996b85cd3bce4bcfd73003de20a734959.tar.gz perlweeklychallenge-club-bb1aae2996b85cd3bce4bcfd73003de20a734959.tar.bz2 perlweeklychallenge-club-bb1aae2996b85cd3bce4bcfd73003de20a734959.zip | |
Solution to challenge 137
| -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; + |