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 "