Challenge 137 Solutions (Raku)

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-137/mark-anderson/raku/ch-1.raku b/challenge-137/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..852be66221
--- /dev/null
+++ b/challenge-137/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+my $dt = Date.new(1900, 12, 31);
+
+my $longs := gather while $dt.year <= 2100
+{
+    take $dt.year if $dt.week-number == 53;
+    $dt .= later(:1years);
+}
+
+say $longs.join(', ')
+          .comb(6)
+          .rotor(5, :partial)
+          .join("\n");
diff --git a/challenge-137/mark-anderson/raku/ch-2.raku b/challenge-137/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..352f4fc9e1
--- /dev/null
+++ b/challenge-137/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 4;
+
+is lychrel(56),  0, 'Example 1';
+is lychrel(57),  0, 'Example 2';
+is lychrel(59),  0, 'Example 3';
+is lychrel(196), 1, 'Smallest Lychrel';
+
+sub lychrel($n is copy where 10 <= $n <= 1000)
+{
+    loop
+    {
+        my $sum = $n + $n.flip;
+
+        return 0 if $sum eq $sum.flip;
+        return 1 if ++$  == 500;
+        return 1 if $sum >= 10e6;
+
+        $n = $sum;
+    }
+}