From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105]) by yquem.inria.fr (Postfix) with ESMTP id D1A98BBAF for ; Thu, 3 Dec 2009 17:01:49 +0100 (CET) X-IronPort-AV: E=Sophos;i="4.47,336,1257116400"; d="scan'208";a="51450240" Received: from macabane.dapa.lip6.fr (HELO [192.168.1.103]) ([132.227.203.15]) by mail4-relais-sop.national.inria.fr with ESMTP/TLS/AES128-SHA; 03 Dec 2009 17:01:49 +0100 Message-Id: From: Damien Doligez To: caml users In-Reply-To: Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Mime-Version: 1.0 (Apple Message framework v936) Subject: Re: [Caml-list] Random questions Date: Thu, 3 Dec 2009 17:01:18 +0100 References: <91a3da520911180259s585b5ef5j311bd0448ed3c02f@mail.gmail.com> X-Mailer: Apple Mail (2.936) X-Spam: no; 0.00; damien:01 damien:01 2009:98 doligez:01 doligez:01 wrote:01 inline:01 caml-list:01 int:01 int:01 preliminary:03 let:03 let:03 max:06 inria:06 On 2009-12-03, at 12:00, AUGER wrote: > (* preliminary function: negate_minus_1 : int -> int : n |-> -n-1 *) > let negate_minus_1 = (lor) (-(max_int/2)-1) (* or inline the > constant *) You probably mean this: let negate_minus_1 = (lxor) (-1);; -- Damien