chickadee » srfi-27 » make-random-geometrics

Identifier search

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

P is real in [0 1].

RANDOMS is a (procedure () real)

(use srfi-27-geometrics)