factor/extra/benchmark/random/random.factor

USING: io io.files io.files.temp io.encodings.ascii random
math.parser math sequences ;
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 ( -- )
    300000 write-random-numbers ;

MAIN: random-main
Fixing load-everything for io.files split 2008-12-15 02:13:35 -05:00			`USING: io io.files io.files.temp io.encodings.ascii random`
benchmarks: update for iota 2010-01-14 13:08:22 -05:00			`math.parser math sequences ;`
New benchmarks and UI improvements 2008-02-27 20:24:50 -05:00			`IN: benchmark.random`

Fixing everything for mandatory stack effects 2008-06-09 03:14:14 -04:00			`: random-numbers-path ( -- path )`
			`"random-numbers.txt" temp-file ;`
New benchmarks and UI improvements 2008-02-27 20:24:50 -05:00
			`: write-random-numbers ( n -- )`
Fix benchmarks 2008-03-11 22:58:50 -04:00			`random-numbers-path ascii [`
random is generic now -- iota random -> random 2010-01-14 13:48:57 -05:00			`[ 200 random 100 - number>string print ] times`
New benchmarks and UI improvements 2008-02-27 20:24:50 -05:00			`] with-file-writer ;`

			`: random-main ( -- )`
Tweak some benchmark parameters 2009-04-17 18:55:01 -04:00			`300000 write-random-numbers ;`
New benchmarks and UI improvements 2008-02-27 20:24:50 -05:00
			`MAIN: random-main`