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

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

面白い問題おしえて～な 31問目 - 暇つぶし2ch763:１３２人目の素数さん
20/03/12 06:18:47 ggB+4VIO.net
１万回のシミュレーション

> sim <- function(){
+ flag=FALSE
+ i=0
+ pips=NULL
+ while(flag==FALSE){
+ i=i+1
+ pips=c(pips,sample(6,1))
+ flag=all(1:6 %in% pips)
+ }
+ i
+ }
> k=1e4
> mean(replicate(k,sim()))
[1] 14.7221
>

次ページ

続きを表示

1を表示