0930132人目の素数さん
2018/10/21(日) 13:31:59.24ID:l2E3XuiN1万回のシミュレーションを1万回やって平均を求めてみた
x=c(rep(2:10,4),rep(0,24))
f <- function(){
y=sample(x,12)
z=y[which(y!=0)]
length(z)==length(unique(z))
}
re=replicate(1e4,mean(replicate(1e4,f())))
> summary(re)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.0992 0.1085 0.1106 0.1106 0.1127 0.1217