base: append exact formula in titles
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 29 Jan 2013 01:55:49 +0000 (02:55 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 19 Apr 2013 15:10:15 +0000 (17:10 +0200)
Maths should be more universally understood than verbose English.

base.plp

index 7d31a4d..2deabf5 100644 (file)
--- a/base.plp
+++ b/base.plp
@@ -30,7 +30,7 @@ use List::Util 'sum';
 print '<tr><th>';
 print '<th>', $_ for @morecols;
 for my $max (100, 255, 1024) {
-       print '<tr><th>', $max;
+       print '<tr><th>', $max;
        for my $radix (@morecols) {
                printf '<td style="text-align:right">%.1f',
                        sum(map { radix_economy($_, $radix) } 1 .. $max) / $max;
@@ -38,7 +38,7 @@ for my $max (100, 255, 1024) {
 }
 :></table>
 
-<h2>Fractions</h2>
+<h2>Reciprocal fractions (n⁻¹)</h2>
 <table>
 <:
 print '<tr><th>';
@@ -94,7 +94,7 @@ for my $n (2 .. $count) {
 
 <hr>
 
-<h2>Duplication</h2>
+<h2>Duplication (2ⁿ)</h2>
 <table>
 <:
 use 5.010;