factor/library/test/benchmark/fac.factor

IN: temporary
USING: compiler kernel math sequences test ;

: (fac) ( n! i -- n! )
    dup zero? [
        drop
    ] [
        [ * ] keep 1- (fac)
    ] if ;

: fac ( n -- n! )
    1 swap (fac) ;

: small-fac-benchmark
    #! This tests fixnum math.
    1 swap [ 10 fac 10 [ 1+ / ] each max ] times ; compiled

: big-fac-benchmark
    10000 fac 10000 [ 1+ / ] each ; compiled

[ 1 ] [ big-fac-benchmark ] unit-test

[ 1 ] [ 1000000 small-fac-benchmark ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
clean up class<, class-and, class-or 2005-07-31 23:38:33 -04:00			`USING: compiler kernel math sequences test ;`
some bignum work 2004-08-25 20:51:19 -04:00
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`: (fac) ( n! i -- n! )`
added a zero? word 2006-01-28 15:49:31 -05:00			`dup zero? [`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`drop`
			`] [`
add 1+ 1- words and other tweaks 2005-09-16 22:47:28 -04:00			`[ * ] keep 1- (fac)`
rename ifte to if 2005-09-24 15:21:17 -04:00			`] if ;`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00
			`: fac ( n -- n! )`
			`1 swap (fac) ;`

hand-coded fixnum primitives 2005-01-06 23:16:13 -05:00			`: small-fac-benchmark`
			`#! This tests fixnum math.`
add 1+ 1- words and other tweaks 2005-09-16 22:47:28 -04:00			`1 swap [ 10 fac 10 [ 1+ / ] each max ] times ; compiled`
hand-coded fixnum primitives 2005-01-06 23:16:13 -05:00
			`: big-fac-benchmark`
add 1+ 1- words and other tweaks 2005-09-16 22:47:28 -04:00			`10000 fac 10000 [ 1+ / ] each ; compiled`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00
hand-coded fixnum primitives 2005-01-06 23:16:13 -05:00			`[ 1 ] [ big-fac-benchmark ] unit-test`

			`[ 1 ] [ 1000000 small-fac-benchmark ] unit-test`