chickadee » srfi-27 » make-random-bernoullis

(make-random-bernoullis [p: (P 0.5)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () boolean)procedure

P is real in [0 1].

RANDOMS is a (procedure () real)

(use srfi-27-bernoullis)