timings. ( assoc -- )

Vocabulary

benchmark

Inputs

assoc

an object

Outputs

None

Definition

USING: arrays assocs formatting help.markup io io.styles kernel
math ;

IN: benchmark

: timings. ( assoc -- )
    standard-table-style [
        [
            [ "Benchmark" write ] with-cell
            [ "Time (seconds)" write ] with-cell
        ] with-row [
            [
                [ [ 1array $vocab-link ] with-cell ]
                [ 1000000000 /f [ "%.3f" printf ] with-cell ]
                bi*
            ] with-row
        ] assoc-each
    ] tabular-output nl ;