Anonymous user
Monty Hall problem: Difference between revisions
→{{header|Euphoria}}: Euphoria example added
m (→{{header|APL}}: whitespace) |
(→{{header|Euphoria}}: Euphoria example added) |
||
Line 684:
Output:
<pre>Switching/Staying wins: 66609 33391</pre>
=={{header|Euphoria}}==
<lang euphoria>integer switchWins, stayWins
switchWins = 0
stayWins = 0
integer winner, choice, shown
for plays = 0 to 10000 do
winner = rand(3)
choice = rand(3)
while 1 do
shown = rand(3)
if shown != winner and shown != choice then
exit
end if
end while
stayWins += choice = winner
switchWins += 6-choice-shown = winner
end for
printf(1, "Switching wins %d times\n", switchWins)
printf(1, "Staying wins %d times\n", stayWins)</lang>
=={{header|F_Sharp|F#}}==
| |||