random-bits-exact* ( numbits rnd -- n )

Vocabulary

random

Inputs

numbits	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math math.bitwise ;

IN: random

: random-bits-exact* ( numbits rnd -- n )
    [ 1 - ] dip [ random-bits* ] curry keep set-bit ;