1 USING: sequences math mirrors splitting grouping
2 kernel make assocs alien.syntax columns
3 specialized-arrays bit-arrays ;
4 SPECIALIZED-ARRAY: double
5 IN: benchmark.dispatch3
7 GENERIC: g ( obj -- str )
9 M: assoc g drop "assoc" ;
11 M: sequence g drop "sequence" ;
13 M: virtual-sequence g drop "virtual-sequence" ;
15 M: number g drop "number" ;
17 M: object g drop "object" ;
30 double-array{ 1.0 2.0 3.0 } ,
31 "hello world" 4 tail-slice ,
33 100 2 <sliced-groups> ,
36 { { 1 2 } { 3 4 } } 0 <column> ,
47 : dispatch-test ( -- )
48 2000000 objects [ [ g drop ] each ] curry times ;