Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #1630

Re: vintage computer festival europe this weekend in Munich with big Forth benchmark competition

Show all headers | View raw

Carsten Strotmann <cas_news@strotmann.de> writes Re: vintage computer festival europe this weekend in Munich with big Forth benchmark competition
[..]
> Performance comparisons are a never ending story since the very first
> days of computing. An endless number of articles have been published,
> not too few regarding the classic 6502 vs. Z80 battle. VCFe 12.0
> features a unique Benchmark Competition:
> http://vcfe.org/E/Benchmark.html

Good initiative. I know it's only a benchmark, but I suggest a tiny
mod to the FIB1 code. Or was Forth83's RECURSIVE the same as RECURSE?

: fib1 ( n1 -- n2 )
    dup 2 < if drop 1 exit then
    dup  1- ( recursive ) recurse
    swap 2- ( recursive ) recurse + ;
    
: fib1-bench 10000 0 do i fib1 drop loop ;

The 10000 0 loop is a little optimistic for several different reasons,
I would go for 38 0 or something like that :-)

-marcel

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

vintage computer festival europe this weekend in Munich with big Forth benchmark competition Carsten Strotmann <cas_news@strotmann.de> - 2011-04-28 15:07 +0200
  Re: vintage computer festival europe this weekend in Munich with big Forth benchmark competition mhx@iae.nl (Marcel Hendrix) - 2011-04-28 21:44 +0200
    Re: vintage computer festival europe this weekend in Munich with big Forth benchmark competition Bernd Paysan <bernd.paysan@gmx.de> - 2011-04-29 20:39 +0200
    Re: vintage computer festival europe this weekend in Munich with big Forth benchmark competition Carsten Strotmann <cas@csmobile3.home.strotmann.de> - 2011-05-20 09:07 +0200

csiph-web