r - 你如何证明玩家输了钱？（彩色游戏）

Question

我必须为学校解决这个问题：

投掷三个颜色的骰子，玩家将把钱押在 6 种颜色中的一种上。如果玩家选择的颜色与已掷出的 3 个骰子的颜色相匹配，则玩家将赢得相同金额、两倍或三倍的下注金额。假设玩家每轮只下注一种颜色。模拟这个游戏并显示玩家最终会输掉他的钱。

我有模拟游戏的代码。但是，我不知道如何表明玩家最终会赔钱。

这是R中的代码：

dice = c("red", "blue", "yellow", "green", "orange", "violet")

win = 0
lose = 0
sims = 10000
multiplier = 0
ctr = 0
bet = 1

consecutive = 0

while (ctr != sims) {
    rolls <- sample(dice, 3)
    chosen_color <- sample(dice, 1)

    for (x in rolls) {
        if (chosen_color == x) {
            multiplier = multiplier + 1
        }
    } 
    winnings = bet * multiplier

    if (winnings == 0) {
        lose = lose + 1
        multiplier = 0
    }
    if (winnings > 0) {
        consecutive = consecutive + 1
        win = win + 1
        multiplier = 0
    }
    ctr = ctr + 1
}

print("Results:")
print(paste("Games won: ", win))
print(paste("Games lost: ", lose))
print(paste("Probability of winning: ", win/sims))
print(paste("Probability of losing: ", lose/sims))

我认为应该有一个money变量，它的输出应该是0。但我不知道如何将它合并到程序中。

谢谢你的时间！

标签： rprobability