高校数学の質問スレ Part438

>>379
まず、このアルゴリズムで良いのかをシミュレーションして検証。
4人でジャンケンして1人の勝者が決まるまでの期待値は45/14

10万回のシミュレーション
j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*)
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, winners=Count[a,2]];
If[b=={2,3}, winners=Count[a,3]];
If[b=={1,3}, winners=Count[a,1]] ;
{winners,count}
)

sim[n_] :=((* 勝者が一人になるまでの回数　*)
For[{winner,counts}=j[n],winner>1,k=j[winner];winner=k[[1]];counts=counts+k[[2]]];
counts
)
res4=Table[sim[4],10^5];
Histogram[res4]
Mean[res4]//N
3.21695

45/14=3.214286..
なので、このアルゴリズムで良さそう。