#!/usr/bin/perl -w
@bets=(0.54, 0.24, 0.25, 0.35, 0.24, 0.51, 0.36, 0.22, 0.59, 0.20, 0.57, 0.20);
$n=0;
for ($round=1;$round<=100000;$round++)
{
	$good=0; $bad=0;
	for ($i=1;$i<=10;$i++)
	{
		$bet=1; $bet=0 if(rand(1)<$bets[$i]);
		if (rand(1)<abs($bet-$bets[$i]))
		{
			$good++;
		}
		else
		{
			$bad++;
		}
	}
	$n++ if ($good >= 6)
}
print "$n of 100000\n";