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

Tweak some benchmark parameters

db4
Slava Pestov 2009-04-17 17:55:01 -05:00
parent 0f0218b209
commit 9dc7b4b95a
8 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/base64/base64.factor
View File

@ -5,7 +5,7 @@ IN: benchmark.base64
: base64-benchmark ( -- )
65535 [ 255 bitand ] "" map-as
100 [ >base64 base64> ] times
20 [ >base64 base64> ] times
drop ;
MAIN: base64-benchmark

2
extra/benchmark/beust1/beust1.factor
View File

@ -8,7 +8,7 @@ IN: benchmark.beust1
1 [a,b] [ number>string all-unique? ] count ; inline
: beust ( -- )
10000000 count-numbers
2000000 count-numbers
number>string " unique numbers." append print ;
MAIN: beust

2
extra/benchmark/beust2/beust2.factor
View File

@ -34,7 +34,7 @@ IN: benchmark.beust2
:: beust ( -- )
[let | i! [ 0 ] |
10000000000 [ i 1+ i! ] count-numbers
5000000000 [ i 1+ i! ] count-numbers
i number>string " unique numbers." append print
] ;

2
extra/benchmark/fib6/fib6.factor
View File

@ -9,6 +9,6 @@ USING: math kernel alien ;
] alien-callback
"int" { "int" } "cdecl" alien-indirect ;
: fib-main ( -- ) 34 fib drop ;
: fib-main ( -- ) 32 fib drop ;
MAIN: fib-main

4
extra/benchmark/md5/md5.factor
View File

@ -1,7 +1,7 @@
USING: checksums checksums.md5 io.files kernel ;
USING: checksums checksums.md5 sequences byte-arrays kernel ;
IN: benchmark.md5
: md5-file ( -- )
"vocab:mime/multipart/multipart-tests.factor" md5 checksum-file drop ;
2000000 iota >byte-array md5 checksum-bytes drop ;
MAIN: md5-file

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

@ -11,6 +11,6 @@ IN: benchmark.random
] with-file-writer ;
: random-main ( -- )
1000000 write-random-numbers ;
300000 write-random-numbers ;
MAIN: random-main

4
extra/benchmark/sha1/sha1.factor
View File

@ -1,7 +1,7 @@
USING: checksums checksums.sha1 io.files kernel ;
USING: checksums checksums.sha1 sequences byte-arrays kernel ;
IN: benchmark.sha1
: sha1-file ( -- )
"vocab:mime/multipart/multipart-tests.factor" sha1 checksum-file drop ;
2000000 iota >byte-array sha1 checksum-bytes drop ;
MAIN: sha1-file

2
extra/benchmark/sum-file/sum-file.factor
View File

@ -9,6 +9,6 @@ IN: benchmark.sum-file
ascii [ 0 sum-file-loop ] with-file-reader . ;
: sum-file-main ( -- )
random-numbers-path sum-file ;
5 [ random-numbers-path sum-file ] times ;
MAIN: sum-file-main