Anonymous user
Monty Hall problem: Difference between revisions
→{{header|PureBasic}}
Line 943:
=={{header|PureBasic}}==
<lang PureBasic>
Procedure MontyHall(Redecide)
Dim Doors(
Doors(Random(2)) = 1
Pick = 2
Line 962 ⟶ 960:
OpenConsole()
#Tries =
For I = 0 To #Tries
Win1 + MontyHall(1)
Line 977 ⟶ 975:
Input()</lang>
Output:<pre>Trial runs for each option: 1000000
Wins when
▲Wins when sticking: 3332060 (33.32% chance)</pre>
=={{header|Python}}==
|