Subscribe
#!/usr/bin/perl
srand($$);
$iterations = 1000000;
$tick = 24;
$raffle = 24;
$entrants = 2000;
$totalwinnings = 0;
foreach $i (1...$iterations) {
$winnings = 0;
foreach $raf (1..$raffle) {
if (int(rand($entrants + 1)) == 0) {
$winnings++;
}
}
$totalwinnings += $winnings;
}
print "total winnings for spread: $totalwinnings\n";
$totalwinnings = 0;
foreach $i (1...$iterations) {
$winnings = 0;
if (int(rand($entrants + 24)) == 0) {
$winnings++;
}
$totalwinnings += $winnings;
}
print "total winnings for basket: $totalwinnings\n";
You are not logged in, either login or create an account to post comments
posted by Kirth Gerson at 3:53 PM on October 3, 2005