24/03/24 08:57:30.90 7qWrI+i2H.net
"
「どくいり きけん たべたら しぬで」とかかれたチョコが100個ある。
100人が別々にチョコを１個ずつ食べて少なくとも50人が死亡したことが判明した。
死者が90人以上になる確率を求めよ。
食べた場合の致死率については何の情報もないので
各チョコの致死率は独立で致死率は一様分布であるとする。
"
rm(list=ls())
sim = \(n=100,m=50,d=90){
p = runif(n)
f=Vectorize(\(x){
i=sample(n,x)
prod(p[i])*prod(p[-i])
})
sum(f(d:n))/sum(f(m:n)) |> MASS::fractions()
}
sim()