mt-bench ( n -- )

Vocabulary

benchmark.mt

Inputs

n

an object

Outputs

None

Definition

USING: kernel math random random.mersenne-twister ;

IN: benchmark.mt

: mt-bench ( n -- )
    >fixnum 21309 <mersenne-twister>
    '[ _ random-32* drop ] times ;