Task 2 done

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-211/luca-ferrari/raku/ch-2.p6 b/challenge-211/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..e7a81ce359
--- /dev/null
+++ b/challenge-211/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,20 @@
+#!raku
+
+#
+# Perl Weekly Challenge 211
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-211/>
+#
+
+sub MAIN( *@list where{ @list.elems == @list.grep( * ~~ Int ).elems } ) {
+
+    for @list.permutations -> @current {
+	for 0 ..^ @current.elems {
+	    my ($left, $right) = @current[ 0 .. $_ ], @current[ $_ + 1 .. * - 1 ];
+	    if ( ( $left.sum / $left.elems ) == ( $right.sum / $right.elems ) ) {
+		exit;
+	    }
+	}
+    }
+}