Task 2 done

1 files changed, 10 insertions, 0 deletions

diff --git a/challenge-160/luca-ferrari/raku/ch-2.p6 b/challenge-160/luca-ferrari/raku/ch-2.p6
new file mode 100755
index 0000000000..819a610742
--- /dev/null
+++ b/challenge-160/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,10 @@
+#!raku
+# Perl Weekly Challenge 160
+
+sub MAIN( *@A where { @A.grep( * ~~ Int ).elems == @A.elems } ) {
+    for 1 ..^ @A.elems {
+        .say and exit if @A[ 0 .. $_ - 1 ].sum == @A[ $_ .. * - 1 ].sum;
+    }
+    '-1'.say;
+
+}