面白い問題おしえて～な 31問目

面白い問題おしえて～ ..

754:１３２人目の素数さん
20/03/12 10:36:06 +Rsy6sl8.net
>>735
1万回のシミュレーション結果

> A=1:3
> B=4:5
> C=6
>
> sim <- function(){
+ flag=FALSE
+ i=0
+ pips=NULL
+ while(flag==FALSE){
+ i=i+1
+ pips=c(pips,sample(6,1))
+ flag=any(A %in% pips) & any(B %in% pips) & any(C %in% pips)
+ }
+ i
+ }
> k=1e4
> mean(replicate(k,sim()))
[1] 7.2577
>

次ページ

続きを表示

1を表示