diff options
| -rw-r--r-- | challenge-211/luca-ferrari/raku/ch-2.p6 | 20 |
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; + } + } + } +} |