22/12/27 09:07:55.14 QnnT/m01.net
>>54
検算に乱数発生させてシミュレーションしたら27になった。
URLﾘﾝｸ(i.imgur.com)
オマケ Rのコード
sim=\(){
b=sum(sample(c(rep(1,50),rep(0,50)),50))
B=c(rep(1,b),rep(0,50-b))
flg<-sum(sample(B,30))==12
while(!flg){
b=sum(sample(c(rep(1,50),rep(0,50)),50))
B=c(rep(1,b),rep(0,50-b))
flg<-sum(sample(B,30))==12
}
50-b
}
y=replicate(1e5,sim())
hist(y)
summary(y)