with-seed ( seed quot -- )


Vocabulary
noise

Inputs
seedan object
quotan object


Outputs
None

Definition
USING: kernel random random.mersenne-twister ;

IN: noise

: with-seed ( seed quot -- )
[ <mersenne-twister> ] dip with-random ; inline