r_programming : 迴圈與流程控制

台大系統訓練班 r_programming 第4次期中作業 :

我們把公正的銅板改成公正的骰子，必須出現三次六點才可以停止，請問總共要投幾次？投擲的歷史紀錄為何？

dice_flips <- c()
dice <- c(1, 2, 3, 4, 5, 6)
i <- 1


while (sum(dice_flips == 6) < 3){
   dice_flips[i] <- sample(dice, size = 1)
   i <- i + 1
}
dice_flips # 投擲紀錄

##  [1] 3 1 5 4 6 3 4 1 1 5 1 5 1 3 5 1 4 5 2 1 5 2 2 5 3 6 6

length(dice_flips) # 總共投了幾次

## [1] 27