From c22ce4b14b260b7acd1f536c6bfdb4ebf3e42dbb Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 1 Nov 2021 11:26:07 +0100
Subject: Task 2 done

---
 challenge-137/luca-ferrari/raku/ch-2.p6 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 challenge-137/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-137/luca-ferrari/raku/ch-2.p6 b/challenge-137/luca-ferrari/raku/ch-2.p6
new file mode 100755
index 0000000000..3a67328fad
--- /dev/null
+++ b/challenge-137/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,18 @@
+#!raku
+
+sub MAIN( Int $n where { 10 <= $n <= 10000 }, Bool :$verbose = False )  {
+
+    my ( $result, $iteration ) = $n,0;
+    while ( $result < 10_000_000 && $iteration < 500 ) {
+        $iteration++;
+        $result += $result.split( '' ).reverse.join;
+        if $result == $result.split( '' ).reverse.join {
+            '0'.say;
+            "Found $result after $iteration iterations".say if $verbose;
+            exit;
+        }
+    }
+
+    '1'.say;
+    "Cannot find Lychrel number for $n".say if $verbose;
+}
-- 
cgit