高校数学の質問スレ Part437

>>139
100万回乱数発生させてシミュレーションしてみた。

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= p={4/10,3/10,2/10,1/10};
In[2]:= sim[]:=(
For[li=RandomChoice[p->Range[4],8];cl=Counts@li;count=8,
Length[cl]<4 || AnyTrue[cl,#<2&],count++, AppendTo[li,RandomChoice[p->Range[4],1]];li=Flatten@li;cl=Counts@li];
count
)
In[3]:= N@Mean@Table[sim[],10^6]
Out[3]= 22.3857