- my %p1;
- for my $pair (keys %p) {
- if ($r1{$pair}) {
- $p1{$r1{$pair}} += $p{$pair};
- $p1{$r2{$pair}} += $p{$pair};
- $count{$ins{$pair}} += $p{$pair};
- }
+ my %newp;
+ for my $pair (grep { $rules{$_} } keys %pairs) {
+ my $rule = $rules{$pair};
+ $newp{ $rule->[0] } += $pairs{$pair};
+ $newp{ $rule->[1] } += $pairs{$pair};
+ $count{ $rule->[2] } += $pairs{$pair};