From: "Frédéric Gava" <frederic.gava@wanadoo.fr>
Cc: "caml-list" <caml-list@inria.fr>
Subject: Re: [Caml-list] Memory allocation nano-benchmark.
Date: Thu, 10 Feb 2005 17:36:09 +0100 [thread overview]
Message-ID: <014801c50f8e$a08e9a40$d54380d9@mshome.net> (raw)
In-Reply-To: <1108048745.16698.101.camel@pelican.wigram>
Hi,
> let test tablesize =
> let table =
> Array.init tablesize (fun i ->
> Array.init tablesize (fun j ->
> Array.create tablesize 0))
> in
> for i = 0 to tablesize - 1 do
> for j = 0 to tablesize - 1 do
> for k = 0 to tablesize - 1 do
> table.(i).(j).(k) <- (i+1)*(j+1)*(k+1)
> done done done
Here, you have tablesize^2 applications and time to create the closure(s),
so it is not a good example. Peraps test the following code (I do not have
test it)
let tmp1=Array.create tablesize 0 in
let tmp2 = Array.create tablesize (Array.copy tmp1) in
let table = Array.create tablesize (Array.copy tmp2) in
for i = 0 to tablesize - 1 do
for j = 0 to tablesize - 1 do
for k = 0 to tablesize - 1 do
table.(i).(j).(k) <- (i+1)*(j+1)*(k+1)
done done done
(copy are used to not have the same arrays ) I think (not sure) that used
"Array.create" instead of "Array.init" allows ours to not have the problem
of buildings the closures and peraps give a faster code (for this cases). To
test ;-)
> [skaller@pelican] ~>time ./xmem 250
> real 0m3.327s
> user 0m2.760s
> sys 0m0.300s
I do not understand what is "xmem". A super hero ;-) ?
Cheers,
Frédéric Gava
next prev parent reply other threads:[~2005-02-10 16:34 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-02-10 15:15 Christian Szegedy
2005-02-10 14:47 ` [Caml-list] " Frédéric Gava
2005-02-10 15:19 ` skaller
2005-02-10 16:36 ` Frédéric Gava [this message]
2005-02-10 17:56 ` Frédéric Gava
2005-02-10 19:56 ` Christian Szegedy
2005-02-10 23:58 ` Frédéric Gava
2005-02-11 9:22 ` Frédéric Gava
2005-02-11 13:04 ` skaller
2005-02-11 13:33 ` skaller
2005-02-11 21:07 ` Oliver Bandel
2005-02-12 0:44 ` skaller
2005-02-15 14:17 ` Frédéric Gava
2005-02-15 19:19 ` Christian Szegedy
2005-02-15 20:51 ` Jon Harrop
2005-02-16 8:19 ` Ville-Pertti Keinonen
2005-02-16 9:54 ` Jon Harrop
2005-02-16 10:56 ` Ville-Pertti Keinonen
2005-02-11 0:55 ` skaller
2005-02-10 14:56 ` Jon Harrop
2005-02-10 15:32 ` Ville-Pertti Keinonen
2005-02-10 14:59 ` John Prevost
2005-02-10 16:50 ` Marwan Burelle
2005-02-10 19:20 ` Christian Szegedy
2005-02-10 19:40 ` Jon Harrop
2005-02-11 11:26 ` Oliver Bandel
2005-02-12 13:42 ` Christian Szegedy
2005-02-11 1:04 ` skaller
2005-02-11 11:28 ` Oliver Bandel
2005-02-12 0:01 ` Guillaume
2005-02-12 0:36 ` skaller
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='014801c50f8e$a08e9a40$d54380d9@mshome.net' \
--to=frederic.gava@wanadoo.fr \
--cc=caml-list@inria.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).