]> gitweb.factorcode.org Git - factor.git/commitdiff
collect-benchmarks needs to convert from nano not micro
authorAaron Schaefer <aaron@elasticdog.com>
Sun, 14 Feb 2010 21:59:18 +0000 (15:59 -0600)
committerAaron Schaefer <aaron@elasticdog.com>
Sun, 14 Feb 2010 21:59:18 +0000 (15:59 -0600)
extra/project-euler/ave-time/ave-time.factor

index ec190fed187da15b7c51c00c970a1b1cc855f3c2..9927486eb7b7167d5609ec13afa57d1a2cbf522f 100644 (file)
@@ -1,11 +1,11 @@
 ! 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 ;
+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 ] ;
+    swap '[ _ [ [ [ _ nullary ] preserving ] gc benchmark 6 10^ / ] replicate ] ;
 
 : ave-time ( quot n -- )
     [