! Copyright (c) 2007, 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.smart formatting fry io kernel macros math
math.functions math.statistics memory sequences tools.time ;
IN: project-euler.ave-time

MACRO: collect-benchmarks ( quot n -- seq )
    swap '[ _ [ [ [ _ nullary ] preserving ] gc benchmark 1000 / ] replicate ] ;

: ave-time ( quot n -- )
    [
        collect-benchmarks
        [ mean round >integer ]
        [ std ] bi
    ] keep
    "%d ms ave run time - %.2f SD (%d trials)\n" printf flush ; inline