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 18:56:54 +0100 [thread overview]
Message-ID: <015f01c50f99$e8a57e60$d54380d9@mshome.net> (raw)
In-Reply-To: <014801c50f8e$a08e9a40$d54380d9@mshome.net>
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 )
Oups !!!!
The "Array.copy" is here a bug because we would do not have copies of the
arrays. A better code would be:
let table = Array.create tablesize [| [| |] |] in
(* modify the array table to not have arrays*)
for i=0 to tablesize - 1 do
table.(i) <- ( let tmp=Array.create tablesize [||] in
for j=0 to tablesize -1 do
tmp.(j) <- Array.create tablesize 0
done;
tmp)
done;
(* create the good values *)
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
I do not have test this code (I do not used my computer) but it does not
create closures.
Regards,
Frédéric Gava
next prev parent reply other threads:[~2005-02-10 17:55 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
2005-02-10 17:56 ` Frédéric Gava [this message]
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='015f01c50f99$e8a57e60$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).