1 USING: make math sequences splitting grouping
2 kernel columns specialized-arrays.double bit-arrays ;
3 IN: benchmark.dispatch2
13 double-array{ 1.0 2.0 3.0 } ,
14 "hello world" 4 tail-slice ,
16 100 2 <sliced-groups> ,
18 { { 1 2 } { 3 4 } } 0 <column> ,
25 : don't-flush-me ( obj -- ) drop ;
27 : dispatch-test ( -- )
29 [ [ 0 swap nth don't-flush-me ] each ] curry times ;