>>115
乱数発生させてシミュレーションでの結果
> mean(replicate(1e6,sim()))
[1] 0.102387

１割程度という結果になった。