- 83 名前:132人目の素数さん mailto:sage [2018/11/05(月) 17:05:06.59 ID:NWPSgxHY.net]
- >>81
10万回のシミュレーションで > diseq = function(x) grepl("123456",paste(sample(6,x,rep=T),collapse='')) > re=mean(replicate(1e5,diseq(k))) > summary(re) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.02179 0.02179 0.02179 0.02179 0.02179 0.02179 なので多分、あってると思う。
|

|