面白い問題おしえて〜 ..
84:１３２人目の素数さん
18/11/05 17:05:06.59 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
なので多分、あってると思う。
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
1926日前に更新/466 KB
担当:undef