```!!!Forth83 Benchmarks

Below is a collection of some Benchmarks for Forth83 systems like VolksForth.

I found most of these benchmarks on [comp.lang.forth|http://groups.google.com/group/comp.lang.forth], [Hans Bzemers|http://thebeezspeaks.blogspot.com/] [4th|http://www.xs4all.nl/~thebeez/4tH/foldtree.html] and Marcel Hendrix [benchmark collection|http://home.iae.nl/users/mhx/monsterbench.html]

[{TableOfContents }]

!!Integer Calculations

{{{
32000 constant intMax

variable intResult

: DoInt
1 dup intResult dup >r !
begin
dup intMax <
while
dup negate r@ +! 1+
dup r@ +! 1+
r@ @ over * r@ ! 1+
r@ @ over / r@ ! 1+
repeat
r> drop drop
;
}}}

!!Fibonacci 1

{{{
: fib1 ( n1 -- n2 )
dup 2 < if drop 1 exit then
dup  1- recursive
swap 2- recursive  + ;
}}}

!!Fibonacci 2

{{{
: fib2 ( n1 -- n2 )
dup 2 < if drop 1 else
dup  1- recursive
swap 2 - recursive +
then ;
}}}

!!Forth Nesting Benchmark

{{{
\ Forth nesting (NEXT) Benchmark                     cas20101204
: bottom ;
: 1st bottom bottom ;  : 2nd 1st 1st ;      : 3rd 2nd 2nd ;
: 4th 3rd 3rd ;        : 5th 4th 4th ;      : 6th 5th 5th ;
: 7th 6th 6th ;        : 8th 7th 7th ;      : 9th 8th 8th ;
: 10th 9th 9th ;       : 11th 10th 10th ;   : 12th 11th 11th ;
: 13th 12th 12th ;     : 14th 13th 13th ;   : 15th 14th 14th ;
: 16th 15th 15th ;     : 17th 16th 16th ;   : 18th 17th 17th ;
: 19th 18th 18th ;     : 20th 19th 19th ;   : 21th 20th 20th ;
: 22th 21th 21th ;     : 23th 22th 22th ;   : 24th 23th 23th ;
: 25th 24th 24th ;

: 32million   CR ." 32 million nest/unnest operations" 25th ;
:  1million   CR ."  1 million nest/unnest operations" 20th ;

CR .( enter 1million or 32million )
}}}

```