Hi John Running 450MHz P2 with Win98 and REBOL2.2 and IE5. Tak test results: REBOL 0.42 sec Javascript 0.28 sec This is IE5 Jscript from bench.js.html Cheers Larry ----- Original Message ----- From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, November 12, 1999 12:20 PM Subject: [REBOL] Another REBOL benchmark > Seeing that people enjoyed that last benchmark, I offer this > translation of the Java Tak benchmark. > > Here are my results: > REBOL .76 seconds > JavaScript .54 seconds > Java .0071 seconds > > You might be interested in these web sites: > http://www.rahul.net/rhn/bench.js.html > http://www.rahul.net/rhn/bench2.html > > REBOL [ > Title: "TAK Benchmark" > Date: 11-11-1999 > File: %tak.r > Author: "John C." > Email: [EMAIL PROTECTED] > Purpose: { > Simple benchmark ported to REBOL. Computes the Takeuchi > function. To use, run the function BENCH. It will print > out the result of tak 18 12 6 (which should be 7) and the > amount of time needed for one iteration of the program. > } > Category: 'general > ] > > tak: func [x y z] [ > either not (y < x) ; do not `optimize' > [z] > [tak tak x - 1 y z > tak y - 1 z x > tak z - 1 x y]] > > bench: func [] [ > start: fourth now > result: loop 100 [tak 18 12 6] > end: fourth now > print [result (end - start) / 100] > ] > > > > > ______________________________________________________ > Get Your Private, Free Email at http://www.hotmail.com
