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;
}
:></table>
-<h2>Fractions</h2>
+<h2>Reciprocal fractions (n⁻¹)</h2>
<table>
<:
print '<tr><th>';
<hr>
-<h2>Duplication</h2>
+<h2>Duplication (2ⁿ)</h2>
<table>
<:
use 5.010;