>>794
R言語によるモンテカルロ解（乱数発生させてのシミュレーション解）のコード

sim=\() rbinom(1,1,rbeta(1,1+100,1))+rbinom(1,1,rbeta(1,1+10,1))+rbinom(1,1,rbeta(1,1+1,1))
x=replicate(1e6,sim())
sum(x==3)/sum(x>1)

東大合格者による他言語での値が投稿されたら照合する予定。