Task 2 done

1 files changed, 18 insertions, 0 deletions

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