22/11/05 18:42:53.18 fVcpTkuM.net
１００万回のシミュレーション結果
> table(fem)
fem
1 2 3
428368 428700 142932
> mean(fem)
[1] 1.714564
おまけ R言語 ver4.1
# simulation
sim=\(){
girl=sum(sample(0:1,3, replace=TRUE)) # 1:girl 0:boy
DOW=sample(1:7,3, replace=TRUE) # Day of Week 1:Sunday, 2:Saturday
flg <- girl>0 & sum(DOW<3)>0 # flg: one girl at least & one at least kid born on weekend
while(!flg){
girl=sum(sample(0:1,3, replace=TRUE))
DOW=sample(1:7,3, replace=TRUE)
flg <- girl>0 & sum(DOW<3)>0
}
return(girl)
}
fem=replicate(1e6,sim())
table(fem)
mean(fem)