Experimental features are supposed to be prefixed, do not penalise for
adhering to standards.
sub featurescore {
# relative amount of support for given feature
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) {
my $rank = 0;
if (my $row = shift) {
if ($canihas) {