base: append exact formula in titles

Maths should be more universally understood than verbose English.

diff --git a/base.plp b/base.plp
index 7d31a4dbaf79094b29f44c94aa7f82856ba1fdf8..2deabf517c9968ab8e2ad84bb5fed124a284788b 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>';
 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;
        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>
 
 }
 :></table>
 

-<h2>Fractions</h2>
+<h2>Reciprocal fractions (n⁻¹)</h2>

 <table>
 <:
 print '<tr><th>';
 <table>
 <:
 print '<tr><th>';


@@ -94,7 +94,7 @@ for my $n (2 .. $count) {
 
 <hr>
 
 
 <hr>
 

-<h2>Duplication</h2>
+<h2>Duplication (2ⁿ)</h2>

 <table>
 <:
 use 5.010;
 <table>
 <:
 use 5.010;