while (1) {

$heads=0;
$flag=0;

foreach(1..50) {
$num[$_]=int(rand(2));
$heads+=$num[$_];
}

$adam_prediction=$heads+25;
$rdt1_prediction=50;

foreach(51..100) {
$num[$_]=int(rand(2));
$heads+=$num[$_];
}

$trials++;
if ($adam_prediction==$heads) {
$adam_success++;
$flag=1;
}
if ($rdt1_prediction==$heads) {
$rdt1_success++;
$flag=1;
}

if($adam_success>0) {
$rdt1advantage=$rdt1_success/$adam_success;
if($flag==1) {
print $rdt1advantage."\n";
$flag=0;
}
}
}