2012-09-06 10:53:41 -04:00
|
|
|
USING: kernel math random ;
|
2008-02-27 20:24:50 -05:00
|
|
|
IN: benchmark.random
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: random-benchmark ( -- )
|
2012-09-06 10:53:41 -04:00
|
|
|
1,000,000 [
|
|
|
|
200 random random-unit random-32 3drop
|
|
|
|
] times ;
|
2008-02-27 20:24:50 -05:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: random-benchmark
|