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

Forgot to inline collect-benchmarks word

db4
Aaron Schaefer 2008-11-05 19:24:19 -05:00
parent db7002effa
commit 373c05ee49
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,7 @@ IN: project-euler.ave-time
[ datastack ] [ datastack ]
[ '[ _ gc benchmark , ] tuck '[ _ _ with-datastack drop ] ] [ '[ _ gc benchmark , ] tuck '[ _ _ with-datastack drop ] ]
[ 1- ] tri* swap times call [ 1- ] tri* swap times call
] { } make ; ] { } make ; inline
: nth-place ( x n -- y ) : nth-place ( x n -- y )
10 swap ^ [ * round ] keep / ; 10 swap ^ [ * round ] keep / ;