On Wed, 16 Oct 2002, Viktor wrote:

> Such a small benchmark:
> Visual C++ (see code bellow) 
>  ... 14 ms ... 31 %

2 GHz Pentium Whatever:

   15254 (microseconds)

Not quite as fast, but mine is interpreted.  :^p)
Script appended.

Ian


#!/usr/local/bin/uvm

(require 'timeval)

(define gettimeofday (system.dlsym 0 "gettimeofday"))
(define tv0          (timeval.malloc))
(define tv1          (timeval.malloc))

(gettimeofday tv0 0)

(let ([a (system.malloc 4)]
      [i 10000000])
  (while (set! i (- i 1))
    (set! (word a 0) 3)))

(gettimeofday tv1 0)

(let ([t0 (+ (* 1000000 (timeval.sec tv0)) (timeval.usec tv0))]
      [t1 (+ (* 1000000 (timeval.sec tv1)) (timeval.usec tv1))])
  (system.printf "%d\n" (- t1 t0)))