benchmark.completion: adding a benchmark of tools.completion.
parent
693dd717c4
commit
03cd8c288d
|
@ -0,0 +1,15 @@
|
||||||
|
|
||||||
|
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
|
Loading…
Reference in New Issue