AoC, 2022, day 3

my %prior = ('a'..'z', 'A'..'Z').flat Z=> 1..52;

with $*IN.lines».comb -> @A {
    put 'part 1: ', %prior{ @A.map(-> @a { @a.head(+@a/2) (&) @a.tail(+@a/2) }) }.sum;
    put 'part 2: ', %prior{ @A.map(-> @a1,@a2,@a3 { @a1 (&) @a2 (&) @a3 }) }.sum;
}