Rosetta Code

Monty Hall problem: Difference between revisions

Page Discussion

Monty Hall problem (view source)

Revision as of 17:17, 21 November 2012

7 bytes removed ,  11 years ago
→‎{{header|Mathematica}}: layout
Line 1,700:
=={{header|Mathematica}}==
 
<lang Mathematica> montyHall[g_] :=
 
montyHall[g_] :=
Module[{r, winningDoors, firstChoices, nStayWins, stayWinPercent, nSwitchWins},
r := RandomInteger[{1, 3}, nGames];
Line 1,712 ⟶ 1,710:
Grid[{{"Strategy", "Wins", "Win %"}, {"Stay", Row[{nStayWins, "/", nGames}], stayWinPercent},
{"Switch", Row[{nSwitchWins, "/", nGames}], 100 - stayWinPercent}}, Frame -> All]]</lang>
</lang>
 
 
Usage▼
 
 
▲ ;Usage:
<lang Mathematica>
<lang Mathematica>montyHall[100000]</lang>
</lang>
 
=={{header|MATLAB}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/77966"