Monty Hall problem: Difference between revisions
m
→{{header|Perl 6}}: use fix-size array and atomic increment in .race block
m (→version 1: added the source of the Michael Mol quote about showing timings for program execution times.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: use fix-size array and atomic increment in .race block) |
||
Line 2,682:
for 3, 10 -> $doors {
my
say "With $doors doors: ";
for Stay, 'Staying', Switch, 'Switching' -> $s, $name {
(^TRIALS).race.map: {
}
say " $name wins ",
round(100*
'% of the time.'
}
| |||