require 'enumeration.pl';

for my $N (1..13) {
  print $N == 1 ? "One card\n" : "$N cards\n\n";
  for my $line (gen_table($N, 4)) {
    my ($pat, $f) = @$line;
    printf "%12s %10d %6.8f\n", $pat, $f, $f/(4**$N);
  }
  print "\n----------------\n\n";
}