Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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)<1/3);
- if (rand(1)<abs($bet-$bets[$i]))
- {
- $good++;
- }
- else
- {
- $bad++;
- }
- }
- $n++ if ($good >= 6)
- }
- print "$n of 100000\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement