Task 2 done with equally sized arrays

1 files changed, 15 insertions, 5 deletions

diff --git a/challenge-211/luca-ferrari/raku/ch-2.p6 b/challenge-211/luca-ferrari/raku/ch-2.p6
index e7a81ce359..aa425afa73 100644
--- a/challenge-211/luca-ferrari/raku/ch-2.p6
+++ b/challenge-211/luca-ferrari/raku/ch-2.p6
@@ -10,11 +10,21 @@
 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;
-	    }
+	# for 0 ..^ @current.elems {
+	#     # find the first couple that gives the same average
+	#     my ($left, $right) = @current[ 0 .. $_ ], @current[ $_ + 1 .. * ];
+	#     if ( ( $left.sum / $left.elems ) == ( $right.sum / $right.elems ) ) {
+	# 	say "{ $left.join( ',' ) } = { $left.sum / $left.elems }  and { $right.join( ',' ) } = { $right.sum / $right.elems } ";
+	# 	exit;
+	#     }
+	# }
+
+	my $split-at = ( @current.elems - 1 ) / 2;
+	my ($left, $right) = @current[ 0 .. $split-at ], @current[ $split-at + 1  .. *  ];
+	if ( ( $left.sum / $left.elems ) == ( $right.sum / $right.elems ) ) {
+	    say "{ $left.join( ',' ) } = { $left.sum / $left.elems }  and { $right.join( ',' ) } = { $right.sum / $right.elems } ";
+	    exit;
 	}
+
     }
 }