collect-benchmarks ( quot n -- seq )

Vocabulary

project-euler.ave-time

Inputs

quot	a quotation
n	an integer

Outputs

seq	a sequence

Word description

Runs a quotation n times, collecting the wall clock time inside of a sequence.

Notes

The stack effect of quot is accounted for and only one set of outputs will remain on the stack no matter how many trials are run.

A nicer word for interactive use is ave-time.

Definition

USING: combinators.smart kernel math math.functions memory
sequences tools.time ;

IN: project-euler.ave-time

MACRO: collect-benchmarks ( quot n -- seq )
    swap [ nullary ] curry [ preserving ] curry
    [ gc benchmark 6 10^ / ] curry [ replicate ] 2curry ;