From 01b9182fbd76e758dc13ea9706ea714612cdf98a Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 3 Apr 2023 11:40:59 +0200
Subject: Task 2 done

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

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