'p j' => 'l2',
'j' => 'l2',
'p' => 'l2',
+ 'p p' => 'l2',
'u' => 'l0',
);
my %CSTATUS = (
sub featurescore {
# relative amount of support for given feature
- state $statspts = { y=>10, 'y x'=>9, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 };
+ state $statspts = { y=>10, 'y x'=>10, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 };
my $rank = 0;
if (my $row = shift) {
if ($canihas) {