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

Groups > comp.lang.forth > #1619 > unrolled thread

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

Back to article view | Back to comp.lang.forth

Contents

  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

#1619 — vintage computer festival europe this weekend in Munich with big Forth benchmark competition

The 12th annual European Vintage Computer Festival awaits you!

http://vcfe.org/E/

Our mission is to encourage the preservation of obsolete computer hard-
and software of years past, to promote interest in researching and
documenting the history of the computer age ... and to have fun playing
with old iron.

The Vintage Computer Festival is not only a fixed entry in the Silicon
Valley timetable, but it has also become a European event, celebrating
our computer heritage.

Let us return to those thrilling days of yesteryear, when geeks were
geeks and floppies were really floppy.

Every year the VCFe is themed on a special focus. This year's focus is:
Performance: Mine is Bigger!.

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

-- Carsten

[toc] | [next] | [standalone]

#1630

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

[toc] | [prev] | [next] | [standalone]

#1654

Marcel Hendrix wrote:
> 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 + ;

IIRC, RECURSIVE made the currently defined word visible, i.e.

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

would do the "right" thing.

-- 
Bernd Paysan
"If you want it done right, you have to do it yourself"
http://www.jwdt.com/~paysan/

[toc] | [prev] | [next] | [standalone]

#2154

mhx@iae.nl (Marcel Hendrix) writes:

> 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?
Yes, RECURSIVE (at least in F83 VolkForth) does the same as RECURSE
(compiling the corrently defined word)

>
> : 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 :-)

Yes, that was very optimistic. The benchmarks have been 'tuned'/'fixed'
after the first round of real world testing. The new benchmarks can be
found, together with some results, on the webpage
'http://theultimatebenchmark.org'. Doing this competition was fun and it
motivated about 20 people to install and work with Forth and have fun
while doing it. The VCFe team is considering making this benchmark
'game' a permanent installation on the VCFe event.

-- Carsten

[toc] | [prev] | [standalone]

Back to top | Article view | comp.lang.forth

csiph-web