generate-bbs-prime ( numbits -- p )

Vocabulary

random.blum-blum-shub.private

Inputs

numbits

an object

Outputs

p

an object

Definition

USING: kernel math math.primes ;

IN: random.blum-blum-shub.private

: generate-bbs-prime ( numbits -- p )
    dup random-prime dup 4 mod 3 =
    [ nip ] [ drop generate-bbs-prime ] if ;