Monty Hall problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,701: / Line 1,701: @@
 <lang Mathematica> montyHall[nGames_] :=
-    Module[{r, winningDoors, firstChoices, nStayWins, nSwitchWins},
+    Module[{r, winningDoors, firstChoices, nStayWins, nSwitchWins, s},
          r := RandomInteger[{1, 3}, nGames];
          winningDoors = r;
@@ Line 1,708: / Line 1,708: @@
          nSwitchWins = nGames - nStayWins;
-    Grid[{{"Strategy", "Wins", "Win %"}, {"Stay", Row[{nStayWins, "/", nGames}], N[100 nStayWins/nGames]},
+    Grid[{{"Strategy", "Wins", "Win %"}, {"Stay", Row[{nStayWins, "/", nGames}], s=N[100 nStayWins/nGames]},
-          {"Switch", Row[{nSwitchWins, "/", nGames}], 100 - stayWinPercent}},  Frame -> All]]</lang>
+          {"Switch", Row[{nSwitchWins, "/", nGames}], 100 - s}},  Frame -> All]]</lang>