16 lines
337 B
Factor
16 lines
337 B
Factor
|
|
||
|
|
USING: kernel sequences tools.completion ;
|
||
|
|
|
||
|
|
IN: benchmark.completion
|
||
|
|
|
||
|
|
: completion-benchmark ( -- )
|
||
|
|
"nth" 25,000 [
|
||
|
|
{
|
||
|
|
nth ?nth nths set-nth insert-nth
|
||
|
|
remove-nth remove-nth! change-nth
|
||
|
|
}
|
||
|
|
] replicate concat [ name-completions ] keep
|
||
|
|
[ length ] bi@ assert= ;
|
||
|
|
|
||
|
|
MAIN: completion-benchmark
|