caml-list - the Caml user's mailing list
 help / color / mirror / Atom feed
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


  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;
as well as URLs for NNTP newsgroup(s).