26 lines
535 B
Plaintext
26 lines
535 B
Plaintext
fn montyHall choice switch =
|
|
(
|
|
doors = #(false, false, false)
|
|
doors[random 1 3] = true
|
|
chosen = doors[choice]
|
|
if switch then chosen = not chosen
|
|
chosen
|
|
)
|
|
|
|
fn iterate iterations switched =
|
|
(
|
|
wins = 0
|
|
for i in 1 to iterations do
|
|
(
|
|
if (montyHall (random 1 3) switched) then
|
|
(
|
|
wins += 1
|
|
)
|
|
)
|
|
wins * 100 / iterations as float
|
|
)
|
|
|
|
iterations = 10000
|
|
format ("Stay strategy:%\%\n") (iterate iterations false)
|
|
format ("Switch strategy:%\%\n") (iterate iterations true)
|