/* ranbern.c: random # ~ Bernoulli(p)  */
/***********************************************************/
#include "ran.h"

int RanBern(double p)        /* return Bernoulli(p)  */
{
    return (RanUni() <= p);
}