benchmark: rename main methods to be consistent.
John Benediktsson
parent
d9da6e4781
commit
2e86fd6af0
|
|
@ -11,7 +11,7 @@ IN: benchmark.3d-matrix-scalar
|
|||
{ 0.0 1.0 0.0 } yaw rotation-matrix4
|
||||
location vneg translation-matrix4 m. m. ;
|
||||
|
||||
:: 3d-matrix ( -- )
|
||||
:: 3d-matrix-scalar-benchmark ( -- )
|
||||
f :> result!
|
||||
100000 [
|
||||
{ 1024.0 768.0 } 0.7 0.25 1024.0 p-matrix :> p
|
||||
|
|
@ -20,4 +20,4 @@ IN: benchmark.3d-matrix-scalar
|
|||
] times
|
||||
result . ;
|
||||
|
||||
MAIN: 3d-matrix
|
||||
MAIN: 3d-matrix-scalar-benchmark
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@ TYPED:: mv-matrix ( pitch: float yaw: float location: float-4 -- matrix: matrix4
|
|||
float-4{ 0.0 1.0 0.0 0.0 } yaw rotation-matrix4
|
||||
location vneg translation-matrix4 m4. m4. ;
|
||||
|
||||
:: 3d-matrix ( -- )
|
||||
:: 3d-matrix-vector-benchmark ( -- )
|
||||
f :> result!
|
||||
100000 [
|
||||
float-4{ 1024.0 768.0 0.0 0.0 } 0.7 0.25 1024.0 p-matrix :> p
|
||||
|
|
@ -24,4 +24,4 @@ TYPED:: mv-matrix ( pitch: float yaw: float location: float-4 -- matrix: matrix4
|
|||
] times
|
||||
result . ;
|
||||
|
||||
MAIN: 3d-matrix
|
||||
MAIN: 3d-matrix-vector-benchmark
|
||||
|
|
|
|||
|
|
@ -7,8 +7,8 @@ IN: benchmark.beust1
|
|||
: count-numbers ( max -- n )
|
||||
1 [a,b] [ number>string all-unique? ] count ; inline
|
||||
|
||||
: beust ( -- )
|
||||
: beust1-benchmark ( -- )
|
||||
2000000 count-numbers
|
||||
number>string " unique numbers." append print ;
|
||||
|
||||
MAIN: beust
|
||||
MAIN: beust1-benchmark
|
||||
|
|
|
|||
|
|
@ -31,9 +31,9 @@ IN: benchmark.beust2
|
|||
10 iota [ 1 + 1 1 0 max listener (count-numbers) ] any? drop ;
|
||||
inline
|
||||
|
||||
:: beust ( -- )
|
||||
:: beust2-benchmark ( -- )
|
||||
0 :> i!
|
||||
5000000000 [ i 1 + i! ] count-numbers
|
||||
i number>string " unique numbers." append print ;
|
||||
|
||||
MAIN: beust
|
||||
MAIN: beust2-benchmark
|
||||
|
|
|
|||
|
|
@ -53,7 +53,7 @@ CONSTANT: min-depth 4
|
|||
: binary-trees ( n -- )
|
||||
min-depth 2 + max [ stretch-tree ] [ long-lived-tree ] bi ; inline
|
||||
|
||||
: binary-trees-main ( -- )
|
||||
: binary-trees-benchmark ( -- )
|
||||
16 binary-trees ;
|
||||
|
||||
MAIN: binary-trees-main
|
||||
MAIN: binary-trees-benchmark
|
||||
|
|
|
|||
|
|
@ -88,14 +88,14 @@ TUPLE: meeting-place count mailbox ;
|
|||
[ nip nl bl [ bl ] [ color>> name>> write ] interleave nl ]
|
||||
[ [ '[ _ _ try-meet ] in-thread ] with each ]
|
||||
[ drop run-meeting-place ]
|
||||
|
||||
|
||||
[ nip [ [ count>> number>string write bl ] [ self-count>> number>text write nl ] bi ] each ]
|
||||
[ nip 0 [ count>> + ] reduce bl number>chameneos-string print ]
|
||||
} 2cleave ;
|
||||
|
||||
! 6000000 for shootout, too slow right now
|
||||
|
||||
: chameneos-redux-main ( -- )
|
||||
: chameneos-redux-benchmark ( -- )
|
||||
print-color-table
|
||||
60000 [
|
||||
{ blue red yellow } chameneos-redux
|
||||
|
|
@ -103,4 +103,4 @@ TUPLE: meeting-place count mailbox ;
|
|||
{ blue red yellow red yellow blue red yellow red blue } chameneos-redux
|
||||
] bi ;
|
||||
|
||||
MAIN: chameneos-redux-main
|
||||
MAIN: chameneos-redux-benchmark
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
USING: math kernel continuations ;
|
||||
IN: benchmark.continuations
|
||||
|
||||
: continuations-main ( -- )
|
||||
: continuations-benchmark ( -- )
|
||||
100000 [ drop [ continue ] callcc0 ] each-integer ;
|
||||
|
||||
MAIN: continuations-main
|
||||
MAIN: continuations-benchmark
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
USING: checksums checksums.crc32 io.encodings.ascii io.files kernel math ;
|
||||
IN: benchmark.crc32
|
||||
|
||||
: crc32-file ( -- )
|
||||
: crc32-benchmark ( -- )
|
||||
10 [
|
||||
"vocab:mime/multipart/multipart-tests.factor"
|
||||
crc32 checksum-file drop
|
||||
] times ;
|
||||
|
||||
MAIN: crc32-file
|
||||
MAIN: crc32-benchmark
|
||||
|
|
|
|||
|
|
@ -70,8 +70,8 @@ M: x30 g ;
|
|||
: a-bunch-of-objects ( -- seq )
|
||||
my-classes [ new ] map ;
|
||||
|
||||
: dispatch-benchmark ( -- )
|
||||
: dispatch1-benchmark ( -- )
|
||||
1000000 a-bunch-of-objects
|
||||
[ [ g drop ] each ] curry times ;
|
||||
|
||||
MAIN: dispatch-benchmark
|
||||
MAIN: dispatch1-benchmark
|
||||
|
|
|
|||
|
|
@ -25,8 +25,8 @@ IN: benchmark.dispatch2
|
|||
|
||||
: don't-flush-me ( obj -- ) drop ;
|
||||
|
||||
: dispatch-test ( -- )
|
||||
: dispatch2-benchmark ( -- )
|
||||
1000000 sequences
|
||||
[ [ first don't-flush-me ] each ] curry times ;
|
||||
|
||||
MAIN: dispatch-test
|
||||
MAIN: dispatch2-benchmark
|
||||
|
|
|
|||
|
|
@ -44,7 +44,7 @@ M: object g drop "object" ;
|
|||
ALIEN: 1234 ,
|
||||
] { } make ;
|
||||
|
||||
: dispatch-test ( -- )
|
||||
: dispatch3-benchmark ( -- )
|
||||
2000000 objects [ [ g drop ] each ] curry times ;
|
||||
|
||||
MAIN: dispatch-test
|
||||
MAIN: dispatch3-benchmark
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@ IN: benchmark.dispatch4
|
|||
{ [ dup 19 eq? ] [ drop 19 ] }
|
||||
} cond ;
|
||||
|
||||
: foobar-test-1 ( -- )
|
||||
: dispatch4-benchmark ( -- )
|
||||
20000000 [
|
||||
20 [
|
||||
foobar-1 drop
|
||||
|
|
@ -64,4 +64,4 @@ IN: benchmark.dispatch4
|
|||
] each-integer
|
||||
] times ;
|
||||
|
||||
MAIN: foobar-test-1
|
||||
MAIN: dispatch4-benchmark
|
||||
|
|
|
|||
|
|
@ -70,8 +70,8 @@ INSTANCE: x30 g
|
|||
: a-bunch-of-objects ( -- seq )
|
||||
my-classes [ new ] map ;
|
||||
|
||||
: dispatch-benchmark ( -- )
|
||||
: dispatch5-benchmark ( -- )
|
||||
1000000 a-bunch-of-objects
|
||||
[ f [ g? or ] reduce drop ] curry times ;
|
||||
|
||||
MAIN: dispatch-benchmark
|
||||
MAIN: dispatch5-benchmark
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ IN: benchmark.e-decimals
|
|||
n [1,b] D: 1
|
||||
[ D-factorial D: 1 swap n D/ D+ ] reduce ;
|
||||
|
||||
: calculate-e-decimals-benchmark ( -- )
|
||||
: e-decimals-benchmark ( -- )
|
||||
5 [ 800 calculate-e-decimals drop ] times ;
|
||||
|
||||
MAIN: calculate-e-decimals-benchmark
|
||||
MAIN: e-decimals-benchmark
|
||||
|
|
|
|||
|
|
@ -6,7 +6,7 @@ IN: benchmark.e-ratios
|
|||
: calculate-e-ratios ( n -- e )
|
||||
iota [ factorial recip ] map-sum ;
|
||||
|
||||
: calculate-e-ratios-benchmark ( -- )
|
||||
: e-ratios-benchmark ( -- )
|
||||
5 [ 300 calculate-e-ratios drop ] times ;
|
||||
|
||||
MAIN: calculate-e-ratios-benchmark
|
||||
MAIN: e-ratios-benchmark
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ IN: benchmark.empty-loop-0
|
|||
: empty-loop-0 ( n -- )
|
||||
dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;
|
||||
|
||||
: empty-loop-main ( -- )
|
||||
: empty-loop-0-benchmark ( -- )
|
||||
50000000 empty-loop-0 ;
|
||||
|
||||
MAIN: empty-loop-main
|
||||
MAIN: empty-loop-0-benchmark
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ IN: benchmark.empty-loop-1
|
|||
: empty-loop-1 ( n -- )
|
||||
[ drop ] each-integer ;
|
||||
|
||||
: empty-loop-main ( -- )
|
||||
: empty-loop-1-benchmark ( -- )
|
||||
50000000 empty-loop-1 ;
|
||||
|
||||
MAIN: empty-loop-main
|
||||
MAIN: empty-loop-1-benchmark
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ IN: benchmark.empty-loop-2
|
|||
: empty-loop-2 ( n -- )
|
||||
iota [ drop ] each ;
|
||||
|
||||
: empty-loop-main ( -- )
|
||||
: empty-loop-2-benchmark ( -- )
|
||||
50000000 empty-loop-2 ;
|
||||
|
||||
MAIN: empty-loop-main
|
||||
MAIN: empty-loop-2-benchmark
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@ IN: benchmark.fannkuch
|
|||
] keep
|
||||
"Pfannkuchen(" write pprint ") = " write . ;
|
||||
|
||||
: fannkuch-main ( -- )
|
||||
: fannkuch-benchmark ( -- )
|
||||
9 fannkuch ;
|
||||
|
||||
MAIN: fannkuch-main
|
||||
MAIN: fannkuch-benchmark
|
||||
|
|
|
|||
|
|
@ -102,6 +102,6 @@ TYPED:: make-repeat-fasta ( k: fixnum len: fixnum alu: string -- k': fixnum )
|
|||
] with-file-writer
|
||||
] ;
|
||||
|
||||
: run-fasta ( -- ) 2500000 reverse-complement-in fasta ;
|
||||
: fasta-benchmark ( -- ) 2500000 reverse-complement-in fasta ;
|
||||
|
||||
MAIN: run-fasta
|
||||
MAIN: fasta-benchmark
|
||||
|
|
|
|||
|
|
@ -4,6 +4,7 @@ USING: arrays kernel math ;
|
|||
IN: benchmark.gc0
|
||||
|
||||
: allocate ( -- obj ) 10 f <array> ;
|
||||
: gc0 ( -- ) f 60000000 [ allocate nip ] times drop ;
|
||||
|
||||
MAIN: gc0
|
||||
: gc0-benchmark ( -- ) f 60000000 [ allocate nip ] times drop ;
|
||||
|
||||
MAIN: gc0-benchmark
|
||||
|
|
|
|||
|
|
@ -3,6 +3,6 @@
|
|||
USING: math sequences kernel ;
|
||||
IN: benchmark.gc1
|
||||
|
||||
: gc1 ( -- ) 600000 iota [ >bignum 1 + ] map drop ;
|
||||
: gc1-benchmark ( -- ) 600000 iota [ >bignum 1 + ] map drop ;
|
||||
|
||||
MAIN: gc1
|
||||
MAIN: gc1-benchmark
|
||||
|
|
|
|||
|
|
@ -15,10 +15,10 @@ SYMBOL: oldies
|
|||
: age ( -- )
|
||||
1000 [ allocate drop ] times ;
|
||||
|
||||
: gc2 ( -- )
|
||||
: gc2-benchmark ( -- )
|
||||
[
|
||||
make-old-objects
|
||||
50000 [ age ] times
|
||||
] with-scope ;
|
||||
|
||||
MAIN: gc2
|
||||
MAIN: gc2-benchmark
|
||||
|
|
|
|||
|
|
@ -3,9 +3,9 @@
|
|||
USING: math.parser fry sequences kernel assocs hashtables ;
|
||||
IN: benchmark.gc3
|
||||
|
||||
: gc3 ( -- )
|
||||
: gc3-benchmark ( -- )
|
||||
1000000 iota
|
||||
1000000 <hashtable>
|
||||
'[ [ number>string ] keep _ set-at ] each ;
|
||||
|
||||
MAIN: gc3
|
||||
MAIN: gc3-benchmark
|
||||
|
|
|
|||
|
|
@ -59,7 +59,7 @@ M: collision hashcode* value>> hashcode* 15 bitand ;
|
|||
2bi
|
||||
] with each ;
|
||||
|
||||
: hashtable-benchmark ( -- )
|
||||
: hashtables-benchmark ( -- )
|
||||
H{ } clone
|
||||
10000 [
|
||||
dup {
|
||||
|
|
@ -73,4 +73,4 @@ M: collision hashcode* value>> hashcode* 15 bitand ;
|
|||
] times
|
||||
drop ;
|
||||
|
||||
MAIN: hashtable-benchmark
|
||||
MAIN: hashtables-benchmark
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ IN: benchmark.heaps
|
|||
[ length [ dup heap-pop* ] times ] bi
|
||||
drop ;
|
||||
|
||||
: heap-benchmark ( -- )
|
||||
: heaps-benchmark ( -- )
|
||||
100 [ heap-test ] times ;
|
||||
|
||||
MAIN: heap-benchmark
|
||||
MAIN: heaps-benchmark
|
||||
|
|
|
|||
|
|
@ -11,11 +11,11 @@ kernel ;
|
|||
: reverse-iter ( -- ) 100 [ 0 100000 <range> >vector <reversed> [ ] map drop ] times ;
|
||||
: dot-iter ( -- ) 100 [ 0 100000 <range> dup v. drop ] times ;
|
||||
|
||||
: iter-main ( -- )
|
||||
: iteration-benchmark ( -- )
|
||||
vector-iter
|
||||
array-iter
|
||||
string-iter
|
||||
sbuf-iter
|
||||
reverse-iter ;
|
||||
|
||||
MAIN: iter-main
|
||||
MAIN: iteration-benchmark
|
||||
|
|
|
|||
|
|
@ -3,8 +3,8 @@
|
|||
USING: io.encodings.utf8 io.files kernel peg.javascript ;
|
||||
IN: benchmark.javascript
|
||||
|
||||
: javascript-parser-benchmark ( -- )
|
||||
: javascript-benchmark ( -- )
|
||||
"vocab:benchmark/javascript/jquery-1.3.2.min.js"
|
||||
utf8 file-contents parse-javascript drop ;
|
||||
|
||||
MAIN: javascript-parser-benchmark
|
||||
MAIN: javascript-benchmark
|
||||
|
|
|
|||
|
|
@ -37,9 +37,9 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt"
|
|||
]
|
||||
tri ;
|
||||
|
||||
: knucleotide ( -- )
|
||||
: knucleotide-benchmark ( -- )
|
||||
knucleotide-in
|
||||
ascii [ read-input ] with-file-reader
|
||||
process-input ;
|
||||
|
||||
MAIN: knucleotide
|
||||
MAIN: knucleotide-benchmark
|
||||
|
|
|
|||
|
|
@ -31,7 +31,7 @@ IN: benchmark.mandel
|
|||
"P6\n" write width pprint " " write height pprint "\n255\n" write
|
||||
binary encode-output ; inline
|
||||
|
||||
: mandel-main ( -- )
|
||||
: mandel-benchmark ( -- )
|
||||
"mandel.ppm" temp-file binary [ ppm-header render ] with-file-writer ;
|
||||
|
||||
MAIN: mandel-main
|
||||
MAIN: mandel-benchmark
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ IN: benchmark.matrix-exponential-scalar
|
|||
m i m^n i factorial >float m/n m+
|
||||
] each ;
|
||||
|
||||
:: matrix-e ( -- )
|
||||
:: matrix-exponential-scalar-benchmark ( -- )
|
||||
f :> result!
|
||||
4 identity-matrix :> i4
|
||||
10000 [
|
||||
|
|
@ -21,4 +21,4 @@ IN: benchmark.matrix-exponential-scalar
|
|||
] times
|
||||
result . ;
|
||||
|
||||
MAIN: matrix-e
|
||||
MAIN: matrix-exponential-scalar-benchmark
|
||||
|
|
|
|||
|
|
@ -8,11 +8,11 @@ TYPED:: e^m4 ( m: matrix4 iterations: fixnum -- e^m: matrix4 )
|
|||
m i m4^n i factorial >float m4/n m4+
|
||||
] each ;
|
||||
|
||||
:: matrix-e ( -- )
|
||||
:: matrix-exponential-simd-benchmark ( -- )
|
||||
f :> result!
|
||||
10000 [
|
||||
identity-matrix4 20 e^m4 result!
|
||||
] times
|
||||
result . ;
|
||||
|
||||
MAIN: matrix-e
|
||||
MAIN: matrix-exponential-simd-benchmark
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
USING: checksums checksums.md5 sequences byte-arrays kernel ;
|
||||
IN: benchmark.md5
|
||||
|
||||
: md5-file ( -- )
|
||||
: md5-benchmark ( -- )
|
||||
2000000 iota >byte-array md5 checksum-bytes drop ;
|
||||
|
||||
MAIN: md5-file
|
||||
MAIN: md5-benchmark
|
||||
|
|
|
|||
|
|
@ -3,9 +3,9 @@
|
|||
USING: fry kernel math random random.mersenne-twister ;
|
||||
IN: benchmark.mt
|
||||
|
||||
: mt-benchmark ( n -- )
|
||||
: mt-bench ( n -- )
|
||||
>fixnum 0x533d <mersenne-twister> '[ _ random-32* drop ] times ;
|
||||
|
||||
: mt-main ( -- ) 10000000 mt-benchmark ;
|
||||
: mt-benchmark ( -- ) 10000000 mt-bench ;
|
||||
|
||||
MAIN: mt-main
|
||||
MAIN: mt-benchmark
|
||||
|
|
|
|||
|
|
@ -98,6 +98,6 @@ SPECIALIZED-ARRAY: body
|
|||
[ '[ _ 0.01 advance ] times ]
|
||||
[ energy number>string print ] tri ;
|
||||
|
||||
: nbody-main ( -- ) 1000000 nbody ;
|
||||
: nbody-simd-benchmark ( -- ) 1000000 nbody ;
|
||||
|
||||
MAIN: nbody-main
|
||||
MAIN: nbody-simd-benchmark
|
||||
|
|
|
|||
|
|
@ -102,6 +102,6 @@ HINTS: inertia body ;
|
|||
HINTS: newton's-law body body ;
|
||||
HINTS: nbody fixnum ;
|
||||
|
||||
: nbody-main ( -- ) 1000000 nbody ;
|
||||
: nbody-benchmark ( -- ) 1000000 nbody ;
|
||||
|
||||
MAIN: nbody-main
|
||||
MAIN: nbody-benchmark
|
||||
|
|
|
|||
|
|
@ -24,6 +24,6 @@ IN: benchmark.nested-empty-loop-1
|
|||
|
||||
HINTS: nested-empty-loop fixnum ;
|
||||
|
||||
: nested-empty-loop-main ( -- ) 7 nested-empty-loop ;
|
||||
: nested-empty-loop-1-benchmark ( -- ) 7 nested-empty-loop ;
|
||||
|
||||
MAIN: nested-empty-loop-main
|
||||
MAIN: nested-empty-loop-1-benchmark
|
||||
|
|
|
|||
|
|
@ -26,6 +26,6 @@ IN: benchmark.nested-empty-loop-2
|
|||
|
||||
HINTS: nested-empty-loop fixnum ;
|
||||
|
||||
: nested-empty-loop-main ( -- ) 7 nested-empty-loop ;
|
||||
: nested-empty-loop-2-benchmark ( -- ) 7 nested-empty-loop ;
|
||||
|
||||
MAIN: nested-empty-loop-main
|
||||
MAIN: nested-empty-loop-2-benchmark
|
||||
|
|
|
|||
|
|
@ -32,6 +32,6 @@ IN: benchmark.nsieve-bits
|
|||
[ 2 - 2^ 10000 * nsieve-bits. ]
|
||||
tri ;
|
||||
|
||||
: nsieve-bits-main* ( -- ) 11 nsieve-bits-main ;
|
||||
: nsieve-bits-benchmark ( -- ) 11 nsieve-bits-main ;
|
||||
|
||||
MAIN: nsieve-bits-main*
|
||||
MAIN: nsieve-bits-benchmark
|
||||
|
|
|
|||
|
|
@ -30,6 +30,6 @@ byte-arrays make io ;
|
|||
dup 1 - 2^ 10000 * nsieve.
|
||||
2 - 2^ 10000 * nsieve. ;
|
||||
|
||||
: nsieve-main* ( -- ) 9 nsieve-main ;
|
||||
: nsieve-bytes-benchmark ( -- ) 9 nsieve-main ;
|
||||
|
||||
MAIN: nsieve-main*
|
||||
MAIN: nsieve-bytes-benchmark
|
||||
|
|
|
|||
|
|
@ -31,6 +31,6 @@ IN: benchmark.nsieve
|
|||
[ 2 - 2^ 10000 * nsieve. ]
|
||||
tri ;
|
||||
|
||||
: nsieve-main* ( -- ) 9 nsieve-main ;
|
||||
: nsieve-benchmark ( -- ) 9 nsieve-main ;
|
||||
|
||||
MAIN: nsieve-main*
|
||||
MAIN: nsieve-benchmark
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@ IN: benchmark.partial-sums
|
|||
|
||||
HINTS: partial-sums fixnum ;
|
||||
|
||||
: partial-sums-main ( -- )
|
||||
: partial-sums-benchmark ( -- )
|
||||
2500000 partial-sums simple-table. ;
|
||||
|
||||
MAIN: partial-sums-main
|
||||
MAIN: partial-sums-benchmark
|
||||
|
|
|
|||
|
|
@ -53,7 +53,7 @@ IN: benchmark.pidigits
|
|||
: pidigits ( n -- )
|
||||
[ 1 { { 1 0 } { 0 1 } } ] dip 0 0 (pidigits) ;
|
||||
|
||||
: pidigits-main ( -- )
|
||||
: pidigits-benchmark ( -- )
|
||||
2000 pidigits ;
|
||||
|
||||
MAIN: pidigits-main
|
||||
MAIN: pidigits-benchmark
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ IN: benchmark.random
|
|||
[ 200 random 100 - number>string print ] times
|
||||
] with-file-writer ;
|
||||
|
||||
: random-main ( -- )
|
||||
: random-benchmark ( -- )
|
||||
300000 write-random-numbers ;
|
||||
|
||||
MAIN: random-main
|
||||
MAIN: random-benchmark
|
||||
|
|
|
|||
|
|
@ -167,7 +167,7 @@ CONSTANT: create-offsets
|
|||
[ [ oversampling sq / pgm-pixel ] each ] each
|
||||
] B{ } make ;
|
||||
|
||||
: raytracer-main ( -- )
|
||||
: raytracer-simd-benchmark ( -- )
|
||||
run "raytracer.pnm" temp-file binary set-file-contents ;
|
||||
|
||||
MAIN: raytracer-main
|
||||
MAIN: raytracer-simd-benchmark
|
||||
|
|
|
|||
|
|
@ -181,7 +181,7 @@ DEFER: create
|
|||
[ [ oversampling sq / pgm-pixel ] each ] each
|
||||
] B{ } make ;
|
||||
|
||||
: raytracer-main ( -- )
|
||||
: raytracer-benchmark ( -- )
|
||||
run "raytracer.pnm" temp-file binary set-file-contents ;
|
||||
|
||||
MAIN: raytracer-main
|
||||
MAIN: raytracer-benchmark
|
||||
|
|
|
|||
|
|
@ -32,6 +32,6 @@ IN: benchmark.recursive
|
|||
|
||||
HINTS: recursive fixnum ;
|
||||
|
||||
: recursive-main ( -- ) 10 recursive ;
|
||||
: recursive-benchmark ( -- ) 10 recursive ;
|
||||
|
||||
MAIN: recursive-main
|
||||
MAIN: recursive-benchmark
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@ SYMBOL: clen
|
|||
clen get number>string print
|
||||
length number>string print ;
|
||||
|
||||
: regex-dna-main ( -- )
|
||||
: regex-dna-benchmark ( -- )
|
||||
knucleotide-in regex-dna ;
|
||||
|
||||
MAIN: regex-dna-main
|
||||
MAIN: regex-dna-benchmark
|
||||
|
|
|
|||
|
|
@ -36,9 +36,9 @@ HINTS: do-line vector string ;
|
|||
: reverse-complement-out ( -- path )
|
||||
"reverse-complement-out.txt" temp-file ;
|
||||
|
||||
: reverse-complement-main ( -- )
|
||||
: reverse-complement-benchmark ( -- )
|
||||
reverse-complement-in
|
||||
reverse-complement-out
|
||||
reverse-complement ;
|
||||
|
||||
MAIN: reverse-complement-main
|
||||
MAIN: reverse-complement-benchmark
|
||||
|
|
|
|||
|
|
@ -21,7 +21,7 @@ SYMBOL: done
|
|||
: ring-bench ( messages processes -- )
|
||||
create-ring [ send-messages ] keep destroy-ring ;
|
||||
|
||||
: main-ring-bench ( -- )
|
||||
: ring-benchmark ( -- )
|
||||
1000 1000 ring-bench ;
|
||||
|
||||
MAIN: main-ring-bench
|
||||
MAIN: ring-benchmark
|
||||
|
|
|
|||
|
|
@ -3,9 +3,9 @@
|
|||
USING: fry kernel math random random.sfmt ;
|
||||
IN: benchmark.sfmt
|
||||
|
||||
: sfmt-benchmark ( n -- )
|
||||
: sfmt-bench ( n -- )
|
||||
>fixnum 0x533d <sfmt-19937> '[ _ random-32* drop ] times ;
|
||||
|
||||
: sfmt-main ( -- ) 10000000 sfmt-benchmark ;
|
||||
: sfmt-benchmark ( -- ) 10000000 sfmt-bench ;
|
||||
|
||||
MAIN: sfmt-main
|
||||
MAIN: sfmt-benchmark
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
USING: checksums checksums.sha sequences byte-arrays kernel ;
|
||||
IN: benchmark.sha1
|
||||
|
||||
: sha1-file ( -- )
|
||||
: sha1-benchmark ( -- )
|
||||
2000000 iota >byte-array sha1 checksum-bytes drop ;
|
||||
|
||||
MAIN: sha1-file
|
||||
MAIN: sha1-benchmark
|
||||
|
|
|
|||
|
|
@ -25,7 +25,7 @@ IN: benchmark.simd-1
|
|||
: simd-benchmark ( len -- )
|
||||
>fixnum make-points [ normalize-points ] [ max-points ] bi print-point ;
|
||||
|
||||
: main ( -- )
|
||||
: simd-1-benchmark ( -- )
|
||||
10 [ 500000 simd-benchmark ] times ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: simd-1-benchmark
|
||||
|
|
|
|||
|
|
@ -62,11 +62,11 @@ CONSTANT: number-of-requests 1000
|
|||
server-promise get ?promise drop
|
||||
] benchmark . flush ;
|
||||
|
||||
: socket-benchmarks ( -- )
|
||||
: sockets-benchmark ( -- )
|
||||
1 clients
|
||||
10 clients
|
||||
20 clients
|
||||
40 clients
|
||||
100 clients ;
|
||||
|
||||
MAIN: socket-benchmarks
|
||||
MAIN: sockets-benchmark
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ IN: benchmark.spectral-norm-simd
|
|||
TYPED: spectral-norm ( n: fixnum -- norm )
|
||||
u/v [ double cast-array ] bi@ [ v. ] [ norm-sq ] bi /f sqrt ;
|
||||
|
||||
: spectral-norm-main ( -- )
|
||||
: spectral-norm-simd-benchmark ( -- )
|
||||
2000 spectral-norm . ;
|
||||
|
||||
MAIN: spectral-norm-main
|
||||
MAIN: spectral-norm-simd-benchmark
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ IN: benchmark.spectral-norm
|
|||
TYPED: spectral-norm ( n: fixnum -- norm )
|
||||
u/v [ v. ] [ norm-sq ] bi /f sqrt ;
|
||||
|
||||
: spectral-norm-main ( -- )
|
||||
: spectral-norm-benchmark ( -- )
|
||||
2000 spectral-norm number>string print ;
|
||||
|
||||
MAIN: spectral-norm-main
|
||||
MAIN: spectral-norm-benchmark
|
||||
|
|
|
|||
|
|
@ -12,9 +12,9 @@ IN: benchmark.splay
|
|||
: change-random ( newkeys splay keys -- splay' )
|
||||
swapd [ first pick delete-at first2 pick set-at ] 2each ;
|
||||
|
||||
: run-splay ( -- )
|
||||
: splay-benchmark ( -- )
|
||||
100,000 initial-alist 10,000 cut
|
||||
[ >splay ] [ randomize 10,000 head ] bi
|
||||
change-random keys dup natural-sort assert= ;
|
||||
|
||||
MAIN: run-splay
|
||||
MAIN: splay-benchmark
|
||||
|
|
|
|||
|
|
@ -45,9 +45,10 @@ SPECIALIZED-ARRAY: point
|
|||
: print-point ( point -- )
|
||||
[ xyz [ number>string ] tri@ ] output>array ", " join print ; inline
|
||||
|
||||
: struct-array-benchmark ( len -- )
|
||||
: struct-arrays-bench ( len -- )
|
||||
make-points [ normalize-points ] [ max-points ] bi print-point ;
|
||||
|
||||
: main ( -- ) 10 [ 500000 struct-array-benchmark ] times ;
|
||||
: struct-arrays-benchmark ( -- )
|
||||
10 [ 500000 struct-arrays-bench ] times ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: struct-arrays-benchmark
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ IN: benchmark.sum-file
|
|||
: sum-file ( file -- )
|
||||
ascii [ 0 sum-file-loop ] with-file-reader . ;
|
||||
|
||||
: sum-file-main ( -- )
|
||||
: sum-file-benchmark ( -- )
|
||||
5 [ random-numbers-path sum-file ] times ;
|
||||
|
||||
MAIN: sum-file-main
|
||||
MAIN: sum-file-benchmark
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@ TUPLE: tcp-echo < threaded-server #times #bytes ;
|
|||
swap >>#bytes
|
||||
swap >>#times
|
||||
f 0 <inet4> >>insecure ;
|
||||
|
||||
|
||||
ERROR: incorrect-#bytes ;
|
||||
|
||||
: check-bytes ( bytes n -- bytes )
|
||||
|
|
@ -50,7 +50,7 @@ M: tcp-echo handle-client*
|
|||
] with-client
|
||||
] with-threaded-server ;
|
||||
|
||||
: tcp-echo-benchmark0 ( -- )
|
||||
: tcp-echo0-benchmark ( -- )
|
||||
4 test-size0 tcp-echo-benchmark ;
|
||||
|
||||
MAIN: tcp-echo-benchmark0
|
||||
|
||||
MAIN: tcp-echo0-benchmark
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
USING: benchmark.tcp-echo0 io ;
|
||||
IN: benchmark.tcp-echo1
|
||||
|
||||
: tcp-echo-benchmark1 ( -- )
|
||||
: tcp-echo1-benchmark ( -- )
|
||||
5,000 64 tcp-echo-benchmark ;
|
||||
|
||||
MAIN: tcp-echo-benchmark1
|
||||
MAIN: tcp-echo1-benchmark
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
USING: benchmark.tcp-echo0 io ;
|
||||
IN: benchmark.tcp-echo2
|
||||
|
||||
: tcp-echo-benchmark2 ( -- )
|
||||
: tcp-echo2-benchmark ( -- )
|
||||
5,000 1450 tcp-echo-benchmark ;
|
||||
|
||||
MAIN: tcp-echo-benchmark2
|
||||
MAIN: tcp-echo2-benchmark
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ TUPLE: point { x float } { y float } { z float } ; final
|
|||
|
||||
TUPLE-ARRAY: point
|
||||
|
||||
: tuple-array-benchmark ( -- )
|
||||
: tuple-arrays-benchmark ( -- )
|
||||
100 iota [
|
||||
drop 5000 <point-array> [
|
||||
[ 1 + ] change-x
|
||||
|
|
@ -17,4 +17,4 @@ TUPLE-ARRAY: point
|
|||
] map [ z>> ] map-sum
|
||||
] map-sum . ;
|
||||
|
||||
MAIN: tuple-array-benchmark
|
||||
MAIN: tuple-arrays-benchmark
|
||||
|
|
|
|||
|
|
@ -5,6 +5,6 @@ TUPLE: hello n ;
|
|||
|
||||
: foo ( obj -- obj n ) 0 100000000 [ over n>> + ] times ;
|
||||
|
||||
: typecheck-main ( -- ) 0 hello boa foo 2drop ;
|
||||
: typecheck1-benchmark ( -- ) 0 hello boa foo 2drop ;
|
||||
|
||||
MAIN: typecheck-main
|
||||
MAIN: typecheck1-benchmark
|
||||
|
|
|
|||
|
|
@ -7,6 +7,6 @@ TUPLE: hello n ;
|
|||
|
||||
: foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;
|
||||
|
||||
: typecheck-main ( -- ) 0 hello boa foo 2drop ;
|
||||
: typecheck2-benchmark ( -- ) 0 hello boa foo 2drop ;
|
||||
|
||||
MAIN: typecheck-main
|
||||
MAIN: typecheck2-benchmark
|
||||
|
|
|
|||
|
|
@ -7,6 +7,6 @@ TUPLE: hello n ;
|
|||
|
||||
: foo ( obj -- obj n ) 0 100000000 [ over hello-n* + ] times ;
|
||||
|
||||
: typecheck-main ( -- ) 0 hello boa foo 2drop ;
|
||||
: typecheck3-benchmark ( -- ) 0 hello boa foo 2drop ;
|
||||
|
||||
MAIN: typecheck-main
|
||||
MAIN: typecheck3-benchmark
|
||||
|
|
|
|||
|
|
@ -18,6 +18,6 @@ IN: benchmark.udp-echo0
|
|||
] with-destructors ;
|
||||
|
||||
|
||||
: udp-echo0 ( -- ) 10,000 1 udp-echo ;
|
||||
: udp-echo0-benchmark ( -- ) 10,000 1 udp-echo ;
|
||||
|
||||
MAIN: udp-echo0
|
||||
MAIN: udp-echo0-benchmark
|
||||
|
|
|
|||
|
|
@ -3,6 +3,6 @@
|
|||
USING: benchmark.udp-echo0 ;
|
||||
IN: benchmark.udp-echo1
|
||||
|
||||
: udp-echo1 ( -- ) 10,000 200 udp-echo ;
|
||||
: udp-echo1-benchmark ( -- ) 10,000 200 udp-echo ;
|
||||
|
||||
MAIN: udp-echo1
|
||||
MAIN: udp-echo1-benchmark
|
||||
|
|
|
|||
|
|
@ -3,6 +3,6 @@
|
|||
USING: benchmark.udp-echo0 ;
|
||||
IN: benchmark.udp-echo2
|
||||
|
||||
: udp-echo2 ( -- ) 10,000 1450 udp-echo ;
|
||||
: udp-echo2-benchmark ( -- ) 10,000 1450 udp-echo ;
|
||||
|
||||
MAIN: udp-echo2
|
||||
MAIN: udp-echo2-benchmark
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
USING: io kernel math.parser sequences ui.gadgets.panes ;
|
||||
IN: benchmark.ui-panes
|
||||
|
||||
: ui-pane-benchmark ( -- )
|
||||
: ui-panes-benchmark ( -- )
|
||||
[ 10000 iota [ number>string print ] each ] make-pane drop ;
|
||||
|
||||
MAIN: ui-pane-benchmark
|
||||
MAIN: ui-panes-benchmark
|
||||
|
|
|
|||
|
|
@ -86,7 +86,7 @@ TYPED: yuv>rgb ( rgb: byte-array yuv: yuv-buffer -- )
|
|||
[ yuv>rgb-row ] with with each
|
||||
drop ;
|
||||
|
||||
: yuv>rgb-benchmark ( -- )
|
||||
: yuv-to-rgb-benchmark ( -- )
|
||||
[ fake-data yuv>rgb ] with-destructors ;
|
||||
|
||||
MAIN: yuv>rgb-benchmark
|
||||
MAIN: yuv-to-rgb-benchmark
|
||||
|
|
|
|||
Loading…
Reference in New Issue