steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.random: no need to write the file. 

Also, add random-unit and random-32 to benchmark.
db4
John Benediktsson 2012-09-06 07:53:41 -07:00
parent ebbfa70e87
commit ffab88d5e9
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/benchmark/random/random.factor
View File

@ -1,16 +1,9 @@
USING: io io.files io.files.temp io.encodings.ascii random USING: kernel math random ;
math.parser math sequences ;
IN: benchmark.random 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-benchmark ( -- ) : random-benchmark ( -- )
300000 write-random-numbers ; 1,000,000 [
200 random random-unit random-32 3drop
] times ;
MAIN: random-benchmark MAIN: random-benchmark