steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update collect-benchmarks so that it does not rely onto computed stack effect

db4
Samuel Tardieu 2007-12-28 14:17:31 +01:00
parent caa2a606c2
commit 9760eb4fb1
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/project-euler/ave-time/ave-time.factor
View File

@ -1,23 +1,21 @@
! Copyright (c) 2007 Aaron Schaefer ! Copyright (c) 2007 Aaron Schaefer
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays effects inference io kernel math math.functions math.parser USING: arrays combinators io kernel math math.functions math.parser
math.statistics namespaces sequences tools.time ; math.statistics namespaces sequences tools.time ;
IN: project-euler.ave-time IN: project-euler.ave-time
<PRIVATE <PRIVATE
: clean-stack ( quot -- )
infer dup effect-out swap effect-in - [ drop ] times ;
: ave-benchmarks ( seq -- pair ) : ave-benchmarks ( seq -- pair )
flip [ mean round ] map ; flip [ mean round ] map ;
PRIVATE> PRIVATE>
: collect-benchmarks ( quot n -- seq ) : collect-benchmarks ( quot n -- seq )
[ [
1- [ [ benchmark ] keep -rot 2array , [ clean-stack ] keep ] times >r >r datastack r> [ benchmark 2array , ] curry tuck
] curry { } make >r benchmark 2array r> swap add ; inline [ with-datastack drop ] 2curry r> swap times call
] { } make ;
: ave-time ( quot n -- ) : ave-time ( quot n -- )
[ collect-benchmarks ] keep swap ave-benchmarks [ [ collect-benchmarks ] keep swap ave-benchmarks [