use strict;
use warnings;
use List::Util qw(reduce);
use bignum;

my $numTosses = 64;
#my $runs = (1<<$numTosses)-1;

my @triangle = (0, 1, 0);
for (1 .. $numTosses) {
	my @newTriangle=(0);
	push @newTriangle, $triangle[$_]+$triangle[$_+1] for 0 .. $#triangle-1;
	push @newTriangle, 0;
	@triangle = @newTriangle;
}


print <<EOHDR;
Tails      Count     %
-----   ----------  ------
EOHDR
my $runs = reduce { $a + $b } @triangle;
for (my $i = 0; $i < $numTosses+1; $i++) {
	print "$i\t$triangle[$i+1]\t",100*$triangle[$i+1]/$runs, "\n";
}