1 ! Copyright (C) 2003, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.vectors memory io io.styles prettyprint
4 namespaces system sequences splitting grouping assocs strings ;
7 : benchmark ( quot -- runtime )
8 millis >r call millis r> - ; inline
10 : simple-table. ( values -- )
11 standard-table-style [
16 [ [ write ] with-cell ]
26 "==== RUNNING TIME" print nl pprint " ms" print nl
28 "==== GARBAGE COLLECTION" print nl
33 "Cumulative GC time (ms):"
34 "Longest GC pause (ms):"
35 "Average GC pause (ms):"
40 { "" "Nursery" "Aging" "Tenured" } prefix
49 "Code heap literal scans:"
50 } swap zip simple-table.
54 gc-reset millis >r call gc-stats millis r> - prefix time. ; inline