factor: trim using lists

[factor.git] / extra / benchmark / e-ratios / e-ratios.factor

diff --git a/extra/benchmark/e-ratios/e-ratios.factor b/extra/benchmark/e-ratios/e-ratios.factor
index a909602f8c5d4b482a986be6cc0e366180c90c53..ce0898ec2d20f6a847a4bcc9b1c12b30c70cb357 100644 (file)
--- a/extra/benchmark/e-ratios/e-ratios.factor
+++ b/extra/benchmark/e-ratios/e-ratios.factor
@@ -1,12 +1,12 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.combinatorics math.ranges sequences ;
+USING: kernel math math.combinatorics sequences ;
 IN: benchmark.e-ratios
 
 : calculate-e-ratios ( n -- e )
-    iota [ factorial recip ] map-sum ;
+    <iota> [ factorial recip ] map-sum ;
 
-: calculate-e-ratios-benchmark ( -- )
+: e-ratios-benchmark ( -- )
     5 [ 300 calculate-e-ratios drop ] times ;
 
-MAIN: calculate-e-ratios-benchmark
+MAIN: e-ratios-benchmark