chickadee » srfi-27 » make-random-geometrics

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

P is real in [0 1].

RANDOMS is a (-> real)

(import (srfi 27 geometrics))