底辺私立医大を卒業した医者って頭悪いよね？ Part30

474 ：卵の名無しさん ：2024/03/24(日) 08:57:30.90 ID: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()