[Openmcl-devel] consing iterating through a loop
beer at eecs.cwru.edu
Thu Jan 27 13:37:27 UTC 2005
This is pretty much the kind of thing that FPC-PPC
(http://vorlon.cwru.edu/~beer/index.html#software) was written for:
? (flet ((foo ()
(declare (optimize (speed 3) (safety 0) (space 0)))
(let ((z 2.0d0))
(dotimes (i 500000)
(declare (fixnum i))
(%SET-DOUBLE! a (+ a z)))
(FOO) took 16 milliseconds (0.016 seconds) to run.
Of that, 20 milliseconds (0.020 seconds) were spent in user mode
0 milliseconds (0.000 seconds) were spent in system mode
16 bytes of memory allocated.
On Jan 26, 2005, at 8:01 PM, Cyrus Harmon wrote:
> In OpenMCL:
> (FOO) took 760 milliseconds (0.760 seconds) to run.
> Of that, 150 milliseconds (0.150 seconds) were spent in user mode
> 50 milliseconds (0.050 seconds) were spent in system mode
> 560 milliseconds (0.560 seconds) were spent executing other
> OS processes.
> 361 milliseconds (0.361 seconds) was spent in GC.
> 8,000,000 bytes of memory allocated.
More information about the Openmcl-devel