selected-benchmarks ( -- benchmarks runs )

Vocabulary

webapps.mason.utils

Inputs

None

Outputs

benchmarks	an object
runs	an object

Definition

USING: accessors assocs db.tuples html.forms kernel sequences
webapps.mason.backend ;

IN: webapps.mason.utils

: selected-benchmarks ( -- benchmarks runs )
    selected-runs [ [ run-id>> ] keep ] map>alist [
        keys
        [ V{ } clone benchmark new "name" value >>name ] dip
        [ >>run-id select-tuples append! ] with each
    ] keep ;