RosettaCodeData/Task/Equilibrium-index/Perl-6/equilibrium-index-2.pl6

sub equilibrium_index(@list) {
    my @a = [\+] @list;
    my @b = reverse [\+] reverse @list;
    ^@list Zxx (@a »==« @b);
}