?generate-more-bits ( a bits -- a bits' )

Vocabulary

rosetta-code.image-noise

Inputs

a	an object
bits	an object

Outputs

a	an object
bits'	an object

Definition

USING: kernel math random ;

IN: rosetta-code.image-noise

: ?generate-more-bits ( a bits -- a bits' )
    over 32 mod zero? [ drop random-32 ] when ; inline