- 151 名前：１３２人目の素数さん mailto:sage [2023/10/18(水) 20:43:09.70 ID:0vnDj2My.net]
- >>112
Rでの１００万回シミュレーション
sim=function(x){
d=sample(6,6,rep=TRUE)
for(i in 1:5){
if(d[i]>=x[i]) return(d[i])
}
return(d[6])
}
k=1e6
mean( replicate(k,sim(c(6,5,5,5,4))) )
mean( replicate(k,sim(c(6,6,6,6,6))) )
