30 lines
671 B
Factor
30 lines
671 B
Factor
|
USING: namespaces math sequences splitting kernel ;
|
||
|
|
IN: benchmark.dispatch2
|
||
|
|
|
||
|
|
: sequences
|
||
|
|
[
|
||
|
|
1 ,
|
||
|
|
10 >bignum ,
|
||
|
|
{ 1 2 3 } ,
|
||
|
|
"hello world" ,
|
||
|
|
SBUF" sbuf world" ,
|
||
|
|
V{ "a" "b" "c" } ,
|
||
|
|
F{ 1.0 2.0 3.0 } ,
|
||
|
|
"hello world" 4 tail-slice ,
|
||
|
|
10 f <repetition> ,
|
||
|
|
100 2 <sliced-groups> ,
|
||
|
|
"hello" <reversed> ,
|
||
|
|
{ { 1 2 } { 3 4 } } 0 <column> ,
|
||
|
|
?{ t f t } ,
|
||
|
|
B{ 1 2 3 } ,
|
||
|
|
[ "a" "b" "c" ] ,
|
||
|
|
1 [ + ] curry ,
|
||
|
|
] { } make ;
|
||
|
|
|
||
|
|
: don't-flush-me drop ;
|
||
|
|
|
||
|
|
: dispatch-test
|
||
|
|
1000000 sequences
|
||
|
|
[ [ 0 swap nth don't-flush-me ] each ] curry times ;
|
||
|
|
|
||
|
|
MAIN: dispatch-test
|