7 "Cheat sheets summarising various software programs and standards.",
10 sheet cheat reference software overview summary help keyboard map unicode
12 stylesheet => [qw'light dark circus mono red'],
22 my @cols = (2, 6, 8, 9, 10, 12, 16, 18);
25 print '<th>', $_ for @cols;
27 my @char = (0..9, 'A'..'Z', 'a'..'z');
28 my $places = $count<<1;
31 my ($num, $radix) = @_;
38 for my $place (1 .. $places) {
39 $out .= $char[ $num->blsft(1, $radix) ];
41 $class = $out eq '1' ? 'l5' : $place == 1 ? 'l4' : 'l3';
44 $zeros++ if $out =~ /^0+$/;
46 for my $check ($zeros .. length($out)>>1) {
47 if (substr($out, -$check) eq substr($out, -$check*2, $check)) {
48 $class = $check == 1 ? 'l2' : 'l1';
49 substr($out, -$check) = '';
50 substr($out, -$check, 0) = '<span style="text-decoration:overline">';
56 printf '<td%s style="text-align:left">%s', $class && qq( class="$class"), $out;
59 for my $n (2 .. $count) {
62 for my $radix (@cols) {
63 my $accuracy = int($places * log($radix) / log(10));
64 Math::BigFloat->accuracy($accuracy);
65 shownum(scalar Math::BigFloat->new(1)->bdiv($n, $accuracy+1), $radix);