diff --git a/extra/builder/benchmark/benchmark.factor b/extra/builder/benchmark/benchmark.factor deleted file mode 100644 index afe277d30b..0000000000 --- a/extra/builder/benchmark/benchmark.factor +++ /dev/null @@ -1,43 +0,0 @@ - -USING: kernel continuations arrays assocs sequences sorting math - io io.styles prettyprint builder.util ; - -IN: builder.benchmark - -! : passing-benchmarks ( table -- table ) -! [ second first2 number? swap number? and ] filter ; - -: passing-benchmarks ( table -- table ) [ second number? ] filter ; - -! : simplify-table ( table -- table ) [ first2 second 2array ] map ; - -: benchmark-difference ( old-table benchmark-result -- result-diff ) - first2 >r - tuck swap at - r> - swap - - 2array ; - -: compare-tables ( old new -- table ) - [ passing-benchmarks ] bi@ - [ benchmark-difference ] with map ; - -: benchmark-deltas ( -- table ) - "../benchmarks" "benchmarks" [ eval-file ] bi@ - compare-tables - sort-values ; - -: benchmark-deltas. ( deltas -- ) - standard-table-style - [ - [ [ "Benchmark" write ] with-cell [ "Delta (ms)" write ] with-cell ] - with-row - [ [ swap [ write ] with-cell pprint-cell ] with-row ] - assoc-each - ] - tabular-output ; - -: show-benchmark-deltas ( -- ) - [ benchmark-deltas benchmark-deltas. ] - [ drop "Error generating benchmark deltas" . ] - recover ; \ No newline at end of file