# 二項乱数（母比率 p, 試行回数 n）

function b_rand(p, n,     i, r)
{
   r = 0
   for (i = 0; i < n; i++) {
       if (rand() < p) {
           r++
       }
   }
   return r
}