<blum-blum-shub> ( numbits -- blum-blum-shub )


Vocabulary
random.blum-blum-shub

Inputs
numbitsan object


Outputs
blum-blum-shuban object


Definition
USING: kernel math math.primes random.blum-blum-shub.private ;

IN: random.blum-blum-shub

: <blum-blum-shub> ( numbits -- blum-blum-shub )
generate-bbs-primes * [ find-relative-prime ] keep
blum-blum-shub boa ;