From: Jean-Christophe Filliatre <Jean-Christophe.Filliatre@lri.fr>
To: Bob Bailey <bobbaileyjr@yahoo.com>
Cc: Caml List <caml-list@inria.fr>
Subject: Re: [Caml-list] Question about string ref and Hashtbl.
Date: Mon, 22 Mar 2004 09:32:48 +0100 [thread overview]
Message-ID: <16478.42160.362909.932912@gargle.gargle.HOWL> (raw)
In-Reply-To: <20040320000558.71279.qmail@web40311.mail.yahoo.com>
Bob Bailey writes:
> That's an interesting idea. SO the key string and the value string will really point to the same
> location in memory.
>
> So if I did (string,string ref) Hashtbl.t,
> then the string ref would be a pointer to the key string.
> Would that allow me to compare two string ref variables together? Would the comparason of the
> locations of the strings mean I wouldn't have to do a full string compare?
What you are trying to achieve is called hash-consing and comes up to
Lisp a long time ago. It is indeed implemented using a hash table, but
refs are not needed:
let (hash_cons : string -> string) =
let h = Hashtbl.create 97 in
fun s -> try Hashtbl.find h s with Not_found -> Hashtbl.add h s s; s
A string is mapped to itself whenever it is encountered for the first
time.
If you achieve full hash consing (i.e. any string passes through
function hash_cons) then you can safely substitute == for = (they are
now equivalent).
If you need a total order over strings (e.g. to instantiate Set.Make
or Map.Make) you need to associate unique integer keys to strings. You
may have a look at module Hashcons available here:
http://www.lri.fr/~filliatr/software.en.html
which already does this, and at the companion modules Hset and Hmap
(sets and map for hash-consed values). There is also a short paper
describing the hash-consing technique in ocaml.
Hops this helps,
--
Jean-Christophe Filliâtre
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
next prev parent reply other threads:[~2004-03-22 8:52 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20040320.075814.105434271.yoriyuki@mbg.ocn.ne.jp>
2004-03-20 0:05 ` Bob Bailey
2004-03-20 3:13 ` Remi Vanicat
2004-03-22 8:32 ` Jean-Christophe Filliatre [this message]
2004-03-19 22:03 Bob Bailey
2004-03-19 22:48 ` Karl Zilles
2004-03-19 23:58 ` Bob Bailey
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=16478.42160.362909.932912@gargle.gargle.HOWL \
--to=jean-christophe.filliatre@lri.fr \
--cc=bobbaileyjr@yahoo.com \
--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