You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
364 B
Forth
20 lines
364 B
Forth
: fib ( n -- d )
|
|
>r 0 dup 1 0 r> 0 do
|
|
2dup 2>r 2swap 6 sys 2r> 2swap loop 2drop ;
|
|
|
|
: fibtest ( n -- )
|
|
0 do i fib <# #s #> type space loop ;
|
|
|
|
: fibbench ( n -- )
|
|
5 sys fib 5 sys >r 2drop r> ;
|
|
|
|
variable avg 0 avg !
|
|
1000 constant iters
|
|
|
|
: bench ( -- )
|
|
iters 0 do 1000 fibbench avg +! loop
|
|
avg @ iters / avg ! ;
|
|
|
|
bench ." avg time: " avg @ . ." us" cr
|
|
bye
|