37 lines
988 B
Factor
37 lines
988 B
Factor
! Copyright (C) 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel vocabs vocabs.loader tools.time tools.browser
|
|
arrays assocs io.styles io help.markup prettyprint sequences ;
|
|
IN: benchmark
|
|
|
|
: run-benchmark ( vocab -- result )
|
|
"=== Benchmark " write dup print flush
|
|
dup require [ run ] benchmark 2array
|
|
dup . ;
|
|
|
|
: run-benchmarks ( -- assoc )
|
|
"benchmark" load-children
|
|
"benchmark" dup child-vocabs remove
|
|
[ dup run-benchmark ] { } map>assoc ;
|
|
|
|
: benchmarks. ( assoc -- )
|
|
standard-table-style [
|
|
[
|
|
[ "Benchmark" write ] with-cell
|
|
[ "Run time (ms)" write ] with-cell
|
|
[ "GC time (ms)" write ] with-cell
|
|
] with-row
|
|
[
|
|
[
|
|
swap [ ($vocab-link) ] with-cell
|
|
first2 pprint-cell pprint-cell
|
|
] with-row
|
|
] assoc-each
|
|
] tabular-output ;
|
|
|
|
: benchmarks ( -- )
|
|
run-benchmarks benchmarks. ;
|
|
|
|
MAIN: benchmarks
|
|
|