From 63020343f2a74a8e91040305e955467532af60c8 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Nov 2021 09:53:01 +0000
Subject: Challenge 137 Solutions (Raku)

---
 challenge-137/mark-anderson/raku/ch-1.raku | 14 ++++++++++++++
 challenge-137/mark-anderson/raku/ch-2.raku | 23 +++++++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 challenge-137/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-137/mark-anderson/raku/ch-2.raku

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


From 19d8d0e1f460dcd52692cb7f53434c7c54443f69 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Nov 2021 10:17:19 +0000
Subject: Challenge 137 Solutions (Raku)

---
 challenge-137/mark-anderson/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-137/mark-anderson/raku/ch-2.raku b/challenge-137/mark-anderson/raku/ch-2.raku
index 352f4fc9e1..bd0ef51825 100644
--- a/challenge-137/mark-anderson/raku/ch-2.raku
+++ b/challenge-137/mark-anderson/raku/ch-2.raku
@@ -14,7 +14,7 @@ sub lychrel($n is copy where 10 <= $n <= 1000)
     {
         my $sum = $n + $n.flip;
 
-        return 0 if $sum eq $sum.flip;
+        return 0 if $sum == $sum.flip;
         return 1 if ++$  == 500;
         return 1 if $sum >= 10e6;
 
-- 
cgit