21 lines
691 B
Text
21 lines
691 B
Text
var n = 1000 # number of times to play
|
||
var switchWins = (var stayWins = 0) # sum of each strategy's wins
|
||
|
||
n.times { # play the game n times
|
||
var prize = pick(^3)
|
||
var chosen = pick(^3)
|
||
|
||
var show;
|
||
do {
|
||
show = pick(^3)
|
||
} while (show ~~ [chosen, prize])
|
||
|
||
given(chosen) {
|
||
when (prize) { stayWins += 1 }
|
||
when ([3 - show - prize]) { switchWins += 1 }
|
||
default { die "~ error ~" }
|
||
}
|
||
}
|
||
|
||
say ("Staying wins %.2f%% of the time." % (100.0 * stayWins / n))
|
||
say ("Switching wins %.2f%% of the time." % (100.0 * switchWins / n))
|