23/01/08 21:45:43.63 y7viMnT0.net
>>609
10万回シミュレーションしてみると
> mean(replicate(1e5,sim()))
[1] 0.69413
と厳密解（空想解）46656/67171と近似。
オマケ R言語（臨床医に一番必要なプログラム言語）のコード
sim<-\(){
n=sample(6,1)
d=rep(1:2,c(n,6-n))
flg <- all(sample(d,6,replace = TRUE)==1)
while(!flg){
n=sample(6,1)
d=rep(1:2,c(n,6-n))
flg <- all(sample(d,6,replace = TRUE)==1)
}
n==6
}
k=1e6
mean(replicate(k,sim()))