require 'enumeration.pl';

for my $N (1..12) {
  print $N == 1 ? "One die\n" : "$N dice\n\n";
  for my $line (gen_table($N, 6)) {
    my ($pat, $f) = @$line;
    printf "%12s %10d %6.3f %%\n", $pat, $f, $f*100/(6**$N);
  }
  print "\n----------------\n\n";
}