From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <weis@pauillac.inria.fr>
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78])
	by yquem.inria.fr (Postfix) with ESMTP id D4691BBB7
	for <caml-list@yquem.inria.fr>; Tue, 25 Jul 2006 17:20:39 +0200 (CEST)
Received: from pauillac.inria.fr (pauillac.inria.fr [128.93.11.35])
	by nez-perce.inria.fr (8.13.6/8.13.6) with ESMTP id k6PFKdjw004260
	for <caml-list@yquem.inria.fr>; Tue, 25 Jul 2006 17:20:39 +0200
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id RAA18115 for <caml-list@pauillac.inria.fr>; Tue, 25 Jul 2006 17:20:38 +0200 (MET DST)
Received: from nf-out-0910.google.com (nf-out-0910.google.com [64.233.182.189])
	by nez-perce.inria.fr (8.13.6/8.13.6) with ESMTP id k6PFKbAN004254
	for <caml-list@inria.fr>; Tue, 25 Jul 2006 17:20:38 +0200
Received: by nf-out-0910.google.com with SMTP id y38so243832nfb
        for <caml-list@inria.fr>; Tue, 25 Jul 2006 08:20:37 -0700 (PDT)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
        s=beta; d=gmail.com;
        h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
        b=EOvUlCrS5fDI/3bL3H84HfdEOZ34pT52lPjYYY2kLtQoTRrCSzwNJ4dCX8jz1206bRWkK4uahwZ6mvSu9Y9VpbjWnTDDImApaMCG7qMTlJBBceZBrwgQ0XULbBMawvizVcrHYbtjvt+8F8QVE6Ocdk40MQpBSGEgEVOpjJW8yWM=
Received: by 10.48.42.1 with SMTP id p1mr797195nfp;
        Tue, 25 Jul 2006 08:20:37 -0700 (PDT)
Received: by 10.49.35.19 with HTTP; Tue, 25 Jul 2006 08:20:37 -0700 (PDT)
Message-ID: <c1490a380607250820i62aeb5bcse265fc509dae7c9a@mail.gmail.com>
Date: Tue, 25 Jul 2006 17:20:37 +0200
From: Tom <tom.primozic@gmail.com>
To: caml-list <caml-list@inria.fr>
Subject: Re: [Caml-list] generic Hashtbl.to_array
In-Reply-To: <26EB47FDD566A7469FC862DAF373792F017112AD@kaiserslautern1.lmsintl.com>
MIME-Version: 1.0
Content-Type: multipart/alternative; 
	boundary="----=_Part_201666_21021211.1153840837695"
References: <26EB47FDD566A7469FC862DAF373792F017112AD@kaiserslautern1.lmsintl.com>
X-j-chkmail-Score: MSGID : 44C636C6.000 on nez-perce : j-chkmail score : X : 0/20 1
X-Miltered: at nez-perce with ID 44C636C7.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Miltered: at nez-perce with ID 44C636C6.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; hashtbl:01 hashtbl:01 caml-list:01 let:03 let:03 fold:06 fold:06 generic:08 fun:08 fun:08 ignore:10 ignore:10 magic:10 magic:10 obj:11 
X-Attachments: cset="UTF-8" cset="UTF-8" 
X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on yquem.inria.fr
X-Spam-Level: 
X-Spam-Status: No, score=0.1 required=5.0 tests=HTML_40_50,HTML_MESSAGE,
	RCVD_BY_IP autolearn=disabled version=3.0.3

------=_Part_201666_21021211.1153840837695
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

The dirtiest solution:

let to_array t =
 let a =  Array.make (Hashtbl.length t) (Obj.magic 0)  in
   ignore
     (Hashtbl.fold (fun k v i -> a.(i) <- (k, v); i + 1) t 0) ;
     a

------=_Part_201666_21021211.1153840837695
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

<div>The dirtiest solution:<br><br>let to_array t =<br> &nbsp;let a = &nbsp;Array.make (Hashtbl.length t) (Obj.magic 0)&nbsp; in</div><span class="q" id="q_10ca644b53aca1c3_1">&nbsp;&nbsp; ignore<br> &nbsp; &nbsp; &nbsp;(Hashtbl.fold (fun k v i -&gt; a.(i) &lt;- (k, v); i + 1) t 0) ;
<br> &nbsp;&nbsp; &nbsp; a</span>

------=_Part_201666_21021211.1153840837695--