require 'enumeration.pl';

for my $N (1..20) {
  print $N == 1 ? "One coin\n" : "$N coins\n\n";
  for my $line (gen_table($N, 2)) {
    my ($pat, $f) = @$line;
    printf "%24s %10d %6.3f %%\n", $pat, $f, $f*100/(2**$N);
  }
  print "\n----------------\n\n";
}