Merge branch 'master' of git://factorcode.org/git/factor

2008-05-07 14:22:12 -05:00 · 2008-05-07 14:22:12 -05:00 · cd8f20aa88
parent 51ab72a375 e82144946a
commit cd8f20aa88
1 changed files with 2 additions and 1 deletions
--- a/extra/benchmark/partial-sums/partial-sums.factor
+++ b/extra/benchmark/partial-sums/partial-sums.factor
@ -3,7 +3,8 @@ prettyprint words hints ;
 IN: benchmark.partial-sums

 : summing ( n quot -- y )
-    [ + ] compose 0.0 -rot 1 -rot (each-integer) ; inline
+    [ >float ] swap [ + ] 3compose
+    0.0 -rot 1 -rot (each-integer) ; inline

 : 2/3^k ( n -- y ) [ 2.0 3.0 / swap 1- ^ ] summing ;