%p = ();

$pt = 0;
print "Generating Peter...\n";
for ($i = 1; $i <= 4; $i++) {
    for ($j = 1; $j <= 4; $j++) {
        for ($k = 1; $k <= 4; $k++) {
            for ($m = 1; $m <= 4; $m++) {
                for ($n = 1; $n <= 4; $n++) {
                    for ($x = 1; $x <= 4; $x++) {
                        for ($y = 1; $y <= 4; $y++) {
                            for ($z = 1; $z <= 4; $z++) {
                                for ($q = 1; $q <= 4; $q++) {
                                    $p{$i+$j+$k+$m+$n+$x+$y+$z+$q} = $p{$i+$j+$k+$m+$n+$x+$y+$z+$q} + 1;
                                    $pt++;
                                }
                            }
                        }
                    }
                }
            }
        }
    }
}
print "Done.  Total of $pt combinations\n";

$ct = 0;
print "Generating Colin...\n";
for ($i = 1; $i <= 6; $i++) {
    for ($j = 1; $j <= 6; $j++) {
        for ($k = 1; $k <= 6; $k++) {
            for ($m = 1; $m <= 6; $m++) {
                for ($n = 1; $n <= 6; $n++) {
                    for ($x = 1; $x <= 6; $x++) {
                        $c{$i+$j+$k+$m+$n+$x} = $c{$i+$j+$k+$m+$n+$x} + 1;
                        $ct++;
                    }
                }
            }
        }
    }
}
print "Done.  Total of $ct combinations\n";

$pw = $cw = $t = 0;
foreach $pk (keys(%p)) {
    foreach $ck (keys(%c)) {
        if ($pk > $ck) {
            $pw += ($p{$pk} / $pt) * ($c{$ck} / $ct);
        } elsif ($ck > $pk) {
            $cw += ($p{$pk} / $pt) * ($c{$ck} / $ct);
        } else {
            $t += ($p{$pk} / $pt) * ($c{$ck} / $ct);
        }
    }
}
print "Peter wins $pw, Colin wins $cw, $t ties\n";
print "Peter % win = $pw\n";

print "Done.\n";

%c = ();