高校数学の質問スレ（医者・東大卒専用） Part438

n100=100;
n10=10;
n9=9;
sim[] :=(
u=Total@RandomVariate[UniformDistribution[{0,1}],100];
u10=Total@RandomChoice[{u,100-u}->{1,0},10];
{u,u10}
)
k=1*^7;
res=Select[Table[sim[],k],#[[2]]==n9&];
ans=#[[1]]& /@ res;
Histogram[ans]
Mean[ans]
Median[ans]