From daf57f04732fc4bfbcab413729f348334a6338b6 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Nov 2021 12:44:46 +0100
Subject: Task 2 done.

---
 challenge-138/luca-ferrari/raku/ch-2.p6 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-138/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-138/luca-ferrari/raku/ch-2.p6 b/challenge-138/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..72e7295a70
--- /dev/null
+++ b/challenge-138/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,16 @@
+#!raku
+
+sub MAIN( Int:D $n where { $n > 0 } ) {
+    my $qrt = $n.sqrt;
+    my @digits = $n.split( '', :skip-empty );
+
+    # short circuit: esay case
+    1.say and exit if @digits.sum == $qrt;
+
+    # try to aggregate from left to right
+    for 1 ..^ @digits.elems {
+        last if @digits[ 0 .. $_ ].join.Int > $qrt;
+        '1'.say and exit if @digits[ 0 .. $_ ].join + @digits[ $_ + 1 .. * - 1 ].sum == $qrt;
+    }
+    
+}
-- 
cgit