do-times ( n quot: ( set1 set2 -- set' ) -- )

Vocabulary

benchmark.hash-sets

Inputs

n	an object
quot	a quotation with stack effect ( set1 set2 -- set' )

Outputs

None

Definition

USING: kernel math ;

IN: benchmark.hash-sets

: do-times ( n quot: ( set1 set2 -- set' ) -- )
    [ [ 2dup ] ] dip [ drop ] compose compose times 2drop ;
    inline