factor/extra/benchmark/completion/completion.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 [ named completions ] keep
    [ length ] bi@ assert= ;

MAIN: completion-benchmark