From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82])
	by walapai.inria.fr (8.13.6/8.13.6) with ESMTP id p3TAtF8d020988
	for <caml-list@sympa-roc.inria.fr>; Fri, 29 Apr 2011 12:55:15 +0200
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AoYDAG+Yuk1KfVI0imdsb2JhbACYSY0zCBQBAQEKCQ0HEgYhiHGgZ4p8gieFIzSIXgEBAwaFeASOaIQXgQ6FDzuDLQ
X-IronPort-AV: E=Sophos;i="4.64,287,1301868000"; 
   d="scan'208";a="107068352"
Received: from mail-ww0-f52.google.com ([74.125.82.52])
  by mail1-smtp-roc.national.inria.fr with ESMTP/TLS/RC4-SHA; 29 Apr 2011 12:55:10 +0200
Received: by wwe15 with SMTP id 15so4940095wwe.9
        for <caml-list@inria.fr>; Fri, 29 Apr 2011 03:55:10 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=gamma;
        h=domainkey-signature:message-id:date:from:user-agent:mime-version:to
         :subject:references:in-reply-to:content-type
         :content-transfer-encoding;
        bh=Mqz9lPZib4Qwumb7ztSnUGro384/PnUIrbQyYBDefpg=;
        b=i3lFdpGW8JQ4eylZwO5dSdHZChbVKbIPK1N8XZ/0mbkJPyQonHcSXXFOUvtEM8k1mn
         8636zfJYpVM4QfqpMj9HYrfZ16/5zYOCechb5E4EliGn3Q+MunWtEaUjH6p4RTusEWqi
         1SyFN32yCHex4Y85VTyir41b5nAVhHHYovwpA=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=message-id:date:from:user-agent:mime-version:to:subject:references
         :in-reply-to:content-type:content-transfer-encoding;
        b=uYa2B6UnY66BWU37uGBYGWBBpbwkmPJkHwGC0szARS2/5bYqeJjm3Bq7VN9S0egAas
         qgP+8lc05Imu4CW1l20v/ODazTSQM227xzVcki0ZyAI6vgyE3eTBeoMyq/+XfiTfoivg
         luBXYEVqliuU202M3hPD2Ev9qLmpbqX7MAECU=
Received: by 10.216.165.144 with SMTP id e16mr469096wel.71.1304074510058;
        Fri, 29 Apr 2011 03:55:10 -0700 (PDT)
Received: from [192.168.1.186] ([93.7.165.241])
        by mx.google.com with ESMTPS id z13sm1629748wbd.29.2011.04.29.03.55.07
        (version=SSLv3 cipher=OTHER);
        Fri, 29 Apr 2011 03:55:08 -0700 (PDT)
Message-ID: <4DBA98D8.5020605@gmail.com>
Date: Fri, 29 Apr 2011 12:54:16 +0200
From: Andrew <newsgroups.fr@gmail.com>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; fr; rv:1.9.2.15) Gecko/20110303 Lightning/1.0b2 Thunderbird/3.1.9
MIME-Version: 1.0
To: caml-list@inria.fr
References: <BANLkTi=55g=rwiRm03_eS=uyGGDCoi4ezg@mail.gmail.com> <164004794.892685.1304067487325.JavaMail.root@zmbs2.inria.fr> <20110429093355.GA25892@yquem.inria.fr>
In-Reply-To: <20110429093355.GA25892@yquem.inria.fr>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Subject: Re: [Caml-list] Comparing variant types

> type dir = Left | Right | Up | Down | No_op
>
> let dir_equal d1 d2 = match d1,d2 with
> | (Left, Left)
> | (Right,Right)
> | (Up, Up)
> | (Down,Down)
> | (No_op,No_op)
>   ->  true
> | (Left,(Right|Up|Down|No_op))
> | (Right,(Left|Up|Down|No_op))
> | (Up,(Left|Right|Down|No_op))
> | (Down,(Left|Right|Up|No_op))
> | (No_op,(Down|Up|Right|Left))
> ->  false


Why not write directly
	let dir_equal = fun d1 d2 ->
	  | Left Left
	  | Right Right
	  | Up Up
	  | Down Down
	  | No_op No_op ->  true
	  | _ -> false
?