challenge #137 #138, raku solutions

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-137/feng-chang/perl/ch-1.pl b/challenge-137/feng-chang/perl/ch-1.pl
new file mode 100755
index 0000000000..c4fdf11502
--- /dev/null
+++ b/challenge-137/feng-chang/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/bin/env perl
+
+use Date::Manip;
+
+my @years = grep { UnixDate("$_-12-31", '%W') == 53 } 1900..2100;
+
+my $first = 1;
+while (@years) {
+    $first ? $first = 0 : print ",\n";
+    print join ', ', splice @years, 0, 5;
+}
+print "\n";