find-range ( quot -- quot: ( -- ) )

Vocabulary

mongodb.benchmark

Inputs

quot

an object

Outputs

quot	a quotation with stack effect ( -- )

Definition

USING: assocs kernel math mongodb.driver ;

IN: mongodb.benchmark

: find-range ( quot -- quot: ( -- ) )
    drop [
        trial-size batch-size /i collection-name trial-size 2 /
        "$gt" H{ } clone [ set-at ] keep
        [ trial-size 2 / batch-size + "$lt" ] dip
        [ set-at ] keep "x" H{ } clone [ set-at ] keep
        [ <query> (find) ] 2curry times
    ] ;