- 413 名前：１３２人目の素数さん mailto:sage [2024/03/16(土) 11:16:56.43 ID:/jBYFhey.net]
- >>399
100万回のシミュレーション結果
> sim=\(){
+ i=3
+ d=runif(3)%/%(1/6)+1
+ flg <- d[1]==d[2] & d[2]==d[3]
+ while(!flg){
+ i=i+1
+ d=c(d[2:3],runif(1)%/%(1/6)+1)
+ flg <- d[1]==d[2] & d[2]==d[3]
+ }
+ i
+ }
> n=replicate(1e6,sim())
> summary(n)
Min. 1st Qu. Median Mean 3rd Qu. Max.
3.00 14.00 31.00 42.94 59.00 572.00
