browser: normalise score as percentage

Show points relative to calculated theoretical maximum.

diff --git a/browser.plp b/browser.plp
index a3a984da9f75564f25b58d4f5c528f3aa8e423c6..7e52a03bf07584a5129b5b05de7fe0a61c8aaf71 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -80,12 +80,11 @@ print '<tr>';
 print '<td>' x $_ for 2, map { scalar @{ $versions{$_} } } @browsers;
 print "</thead>\n";
 
 print '<td>' x $_ for 2, map { scalar @{ $versions{$_} } } @browsers;
 print "</thead>\n";
 

-sub featurerank {
+sub featurescore {

        # relative amount of support for given feature
        state $statspts = { y=>10, 'y x'=>9, a=>5, j=>2, p=>1 };
        # relative amount of support for given feature
        state $statspts = { y=>10, 'y x'=>9, a=>5, j=>2, p=>1 };

-       my ($id) = @_;

        my $rank = 0;
        my $rank = 0;

-       if (my $row = $caniuse->{data}->{$id}->{stats}) {
+       if (my $row = shift) {

                while (my ($browser, $vercols) = each %versions) {
                        my $div = 0;  # multiplier exponent (decreased to lower value)
                        my @vers = map { $row->{$browser}->{$_} } @$vercols;
                while (my ($browser, $vercols) = each %versions) {
                        my $div = 0;  # multiplier exponent (decreased to lower value)
                        my @vers = map { $row->{$browser}->{$_} } @$vercols;


@@ -105,7 +104,8 @@ sub featurerank {
 }
 
 for my $id (sort {
 }
 
 for my $id (sort {

-       featurerank($b) <=> featurerank($a)
+           featurescore($caniuse->{data}->{$b}->{stats})
+       <=> featurescore($caniuse->{data}->{$a}->{stats})

 } keys %{ $caniuse->{data} }) {
        my $row = $caniuse->{data}->{$id};
        my $data = $row->{stats} or next;  # skip metadata [summary]
 } keys %{ $caniuse->{data} }) {
        my $row = $caniuse->{data}->{$id};
        my $data = $row->{stats} or next;  # skip metadata [summary]


@@ -128,7 +128,10 @@ for my $id (sort {
                        $prev = $ver;
                }
        }
                        $prev = $ver;
                }
        }

-       print '<td>', int featurerank($id);
+       state $maxscore = featurescore({  # yes for every possible version
+               map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions
+       });
+       print '<td>', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100;

 }
 print '</table>';
 
 }
 print '</table>';