my @lines = $*IN.lines; my @cards = 1 xx +@lines; my $sum01; for ^+@lines -> $i { my ($winning-numbers, $nums) = @lines[$i].split(/<[:|]>/)[1,2].map(*.words.Array); my $cnt = +$nums.grep(* == $winning-numbers.any); $sum01 += 2**($cnt-1) if $cnt > 0; @cards[$i+1 .. $i+$cnt] »+=» @cards[$i]; } put 'part 1: ', $sum01; put 'part 2: ', @cards.sum;