find-one ( quot -- quot: ( -- ) )

Vocabulary

mongodb.benchmark

Inputs

quot

an object

Outputs

quot	a quotation with stack effect ( -- )

Definition

USING: hashtables kernel math mongodb.driver ;

IN: mongodb.benchmark

: find-one ( quot -- quot: ( -- ) )
    drop [
        trial-size collection-name trial-size 2 / "x" associate
        [ <query> 1 limit (find) ] 2curry times
    ] ;