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

benchmark.fib8: adding super-fast fibonacci benchmark.

db4
John Benediktsson 2013-03-26 11:48:01 -07:00
parent 6f5efb83f2
commit fa534d2507
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/benchmark/fib8/fib8.factor Normal file
View File

@ -0,0 +1,22 @@
USING: combinators kernel math memoize ;
IN: benchmark.fib8
MEMO: (faster-fib) ( m -- n )
dup 1 > [
[ 2/ dup 1 - [ (faster-fib) ] bi@ ] [ 4 mod ] bi {
{ 1 [ [ 2 * ] dip [ + ] [ - ] 2bi * 2 + ] }
{ 3 [ [ 2 * ] dip [ + ] [ - ] 2bi * 2 - ] }
[ drop dupd 2 * + * ]
} case
] when ;
: faster-fib ( m -- n )
dup 0 >= [ throw ] unless (faster-fib) ;
: fib8-benchmark ( -- )
100 [
\ (faster-fib) reset-memoized
100,000 faster-fib log2 69423 assert=
] times ;
MAIN: fib8-benchmark