require 'enumeration.pl';

my $N = 13;
my @tab = sort {$b->[1] <=> $a->[1]} gen_table($N, 4);
for my $line (@tab) {
    my ($pat, $f) = @$line;
    my $A = $pat =~ tr/A//;
    my $B = $pat =~ tr/B//;
    my $C = $pat =~ tr/C//;
    my $D = $pat =~ tr/D//;
    printf "<tr><td align=left>[%2d, %1d, %1d, %1d] <td align=right>%10d <td>align=left>%6.8f\n", $A, $B, $C, $D, $f, $f/(4**$N);
  }