Merge pull request #5166 from jo-37/contrib

Solution to challenge 137

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;
+