16 lines
378 B
Factor
Executable File
16 lines
378 B
Factor
Executable File
USING: io.files io.encodings.ascii random math.parser io math ;
|
|
IN: benchmark.random
|
|
|
|
: random-numbers-path ( -- path )
|
|
"random-numbers.txt" temp-file ;
|
|
|
|
: write-random-numbers ( n -- )
|
|
random-numbers-path ascii [
|
|
[ 200 random 100 - number>string print ] times
|
|
] with-file-writer ;
|
|
|
|
: random-main ( -- )
|
|
1000000 write-random-numbers ;
|
|
|
|
MAIN: random-main
|