1 USING: sequences math mirrors splitting grouping
2 kernel namespaces assocs alien.syntax columns
3 float-arrays bit-arrays ;
4 IN: benchmark.dispatch3
6 GENERIC: g ( obj -- str )
8 M: assoc g drop "assoc" ;
10 M: sequence g drop "sequence" ;
12 M: virtual-sequence g drop "virtual-sequence" ;
14 M: number g drop "number" ;
16 M: object g drop "object" ;
30 "hello world" 4 tail-slice ,
32 100 2 <sliced-groups> ,
35 { { 1 2 } { 3 4 } } 0 <column> ,
46 : dispatch-test ( -- )
47 2000000 objects [ [ g drop ] each ] curry times ;