From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id VAA18950 for caml-redistribution; Tue, 13 Jul 1999 21:22:29 +0200 (MET DST)
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 QAA13936 for <caml-list@pauillac.inria.fr>; Tue, 13 Jul 1999 16:19:33 +0200 (MET DST)
Received: from bouvreuil.cybercable.fr (bouvreuil.cybercable.fr [212.198.3.12])
	by nez-perce.inria.fr (8.8.7/8.8.7) with SMTP id QAA26129
	for <caml-list@inria.fr>; Tue, 13 Jul 1999 16:19:32 +0200 (MET DST)
Received: (qmail 15557 invoked from network); 13 Jul 1999 14:19:29 -0000
Received: from d126.paris-126.cybercable.fr (HELO ZhengHe) (@[212.198.126.126]) (envelope-sender <fare@tunes.org>)
          by bouvreuil.cybercable.fr (qmail-ldap-1.03) with SMTP
          for <caml-list@inria.fr>; 13 Jul 1999 14:19:29 -0000
Received: from fare by ZhengHe with local (Exim 3.02 #1 (Debian))
	id 1143MQ-0005yv-00; Tue, 13 Jul 1999 16:16:42 +0200
Date: Tue, 13 Jul 1999 16:16:42 +0200
From: Francois-Rene Rideau <fare@tunes.org>
To: caml-list@inria.fr
Subject: String.from_list
Message-ID: <19990713161642.A22955@ZhengHe.augustin.thierry>
Reply-To: Francois-Rene Rideau <fare@tunes.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Mailer: Mutt 0.95.6i
Sender: weis

Chers camelots,

David Madore me suggère de vous envoyer les fonctions suivantes
pour inclusion dans string.ml, avec l'espoir qu'elles satisferont notamment
les habitués de Scheme (ou ceux qui traduisent des programmes écrit dans
ce langage) et qui cherchent de telles fonctions en standard.

let from_list l =
  let s = make (List.length l) '\042' in
  let rec f i l =
          match l with
            []   -> s
          | c::r -> unsafe_set s i c ; f (i+1) r
        in f 0 l ;;

let to_list s =
  let rec t i l =
     if i = 0 then l else
       let j = i-1 in f j ((unsafe_get s j)::l)
  in t (length s) [] ;;


Sinon, je n'ai jamais compris si les
[an error occurred while processing this directive]
présents un peu partout sur le site de CAML.inria.fr
étaient intentionnels ou involontaires.
Dans le premier un cas,
un <!--commentaire--> adéquat détromperait le lecteur avisé.
En tout cas, j'ai trouvé ça drôle,
et me suis permis de reprendre la blague à mon compte...

NB: je ne suis pas sur la liste.

Amicamlement,

[ "Faré" | VN: Уng-Vû Bân | Join the TUNES project!   http://www.tunes.org/  ]
[ FR: François-René Rideau | TUNES is a Useful, Nevertheless Expedient System ]
[ Reflection&Cybernethics  | Project for  a Free Reflective  Computing System ]
Keep things as simple as you can, but no simpler.
	-- Albert Einstein
s/things/explanation/ ; s/A.*Einstein/Occam/