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