extra/project-euler/ave-time/ave-time.factor

   1 ! Copyright (c) 2007, 2008 Aaron Schaefer.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators.smart formatting io kernel math math.functions
   4 math.statistics memory sequences tools.time ;
   5 IN: project-euler.ave-time
   6
   7 MACRO: collect-benchmarks ( quot n -- seq )
   8     swap '[ _ [ [ [ _ nullary ] preserving ] gc benchmark 6 10^ / ] replicate ] ;
   9
  10 : ave-time ( quot n -- )
  11     [
  12         collect-benchmarks
  13         [ mean round >integer ]
  14         [ std ] bi
  15     ] keep
  16     "%d ms ave run time - %.2f SD (%d trials)\n" printf flush ; inline