23/01/18 09:52:14.91 HV2PhnvUH.net
"
1個のサイコロを振り続け、1,2,3,4,5,6の各目がいずれも1回以上出た時点で振るのをやめる。
何回サイコロを振ることになるかを当てる賭けをする。
何回に賭けるのが最も有利か？
"
rm(list=ls())
sim=\(){
i=6
dice=sample(6,i,replace=TRUE)
flg <- all(1:6 %in% dice)
while(!flg){
i=i+1
dice=c(dice,sample(6,1))
flg <- all(1:6 %in% dice)
}
return(i)
}
k=1e6
n=replicate(k,sim())
hist(n,'scott',main='',col=colours())
summary(n)
table(n) |> which.max() |> names() |> as.integer()