1 USING: alien.c-types make math sequences splitting grouping
2 kernel columns specialized-arrays bit-arrays ;
3 SPECIALIZED-ARRAY: double
4 IN: benchmark.dispatch2
14 double-array{ 1.0 2.0 3.0 } ,
15 "hello world" 4 tail-slice ,
19 { { 1 2 } { 3 4 } } 0 <column> ,
26 : don't-flush-me ( obj -- ) drop ;
28 : dispatch2-benchmark ( -- )
30 [ [ first don't-flush-me ] each ] curry times ;
32 MAIN: dispatch2-benchmark