foo.p6

#!/usr/bin/raku
 
my @odd_evens;
for "aa.txt".IO.lines -> $line {
    my int $even;
    my int $odd;
    for $line.split(' ').skip(2).head(4) {
        $_ %% 2 ?? $even++ !! $odd++;
    }
    @odd_evens.push(($even, $odd));
}

my %oe_count;

for @odd_evens {
    %oe_count{$_}++;
}

say %oe_count;

for %oe_count.kv -> $k, $v {
    say "$k --> $v"
}