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

Clean up

db4
Slava Pestov 2008-11-29 04:14:30 -06:00
parent 2798de019a
commit 87d00d8012
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/benchmark/partial-sums/partial-sums.factor
View File

@ -1,12 +1,14 @@
USING: math math.functions kernel io io.styles ! Copyright (C) 2008 Slava Pestov.
prettyprint combinators hints fry namespaces ; ! See http://factorcode.org/license.txt for BSD license.
USING: math math.functions kernel io io.styles prettyprint
combinators hints fry namespaces sequences ;
IN: benchmark.partial-sums IN: benchmark.partial-sums
! Helper words ! Helper words
: summing-integers ( n quot -- y ) [ 0.0 1 ] 2dip '[ @ + ] (each-integer) ; inline : summing-integers ( n quot -- y ) [ 0.0 ] 2dip '[ 1+ @ + ] each ; inline
: summing-floats ( n quot -- y ) '[ >float @ ] summing-integers ; inline : summing-floats ( n quot -- y ) '[ >float @ ] summing-integers ; inline
: cube ( x -- y ) dup dup * * ; inline : cube ( x -- y ) dup dup * * ; inline
: -1^ 2 mod 2 * 1- ; inline : -1^ ( n -- -1/1 ) 2 mod 2 * 1- ; inline
! The functions ! The functions
: 2/3^k ( n -- y ) [ 2.0 3.0 / swap 1- ^ ] summing-floats ; inline : 2/3^k ( n -- y ) [ 2.0 3.0 / swap 1- ^ ] summing-floats ; inline
@ -37,6 +39,6 @@ IN: benchmark.partial-sums
HINTS: partial-sums fixnum ; HINTS: partial-sums fixnum ;
: partial-sums-main ( -- ) : partial-sums-main ( -- )
2500001 partial-sums simple-table. ; 2500000 partial-sums simple-table. ;
MAIN: partial-sums-main MAIN: partial-sums-main