>>927
1万回のシミュレーションを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