run-benchmarks ( benchmarks quot: ( vocab -- res ) -- results errors )

Vocabulary

benchmark

Inputs

benchmarks	an object
quot	a quotation with stack effect ( vocab -- res )

Outputs

results	an object
errors	an object

Definition

USING: arrays benchmark.private kernel sequences ;

IN: benchmark

: run-benchmarks
    ( benchmarks quot: ( vocab -- res ) -- results errors )
    [ [ dup ] ] dip [ run-benchmark 3array ] curry compose map
    [ third ] partition [ [ 2 head ] map ] bi@ ; inline