>>825
表の出る確率 0.45　（裏の出る確率 0.55）のコインを使って、何回続けて表が
出るか、みたいなことだな? 数学ではこれをベルヌーイ試行 (Bernoulli trial)
という。ベルヌーイははじめてこの問題を扱った数学者の名前だ。だから、オレ
ならその関数名は bernouli にする。関数内部では、呼ぶと 0から1の間の乱数を
返す関数 random() を使う。

int bernoulli(double p)
{
　double q；
　extern double random();
　int count;
　q = 1.0-p; count = 0;
　while(random() <= q) count++;
　return(count);
}

みたいな感じ。