From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <flux@modeemi.cs.tut.fi>
Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82])
	by sympa.inria.fr (Postfix) with ESMTPS id 15BDF7EEAF
	for <caml-list@sympa.inria.fr>; Fri, 18 Jan 2013 07:13:50 +0100 (CET)
Received-SPF: None (mail1-smtp-roc.national.inria.fr: no sender
  authenticity information available from domain of
  flux-caml@inside.org) identity=pra; client-ip=130.230.4.42;
  receiver=mail1-smtp-roc.national.inria.fr;
  envelope-from="flux@modeemi.cs.tut.fi";
  x-sender="flux-caml@inside.org";
  x-conformance=sidf_compatible
Received-SPF: None (mail1-smtp-roc.national.inria.fr: no sender
  authenticity information available from domain of
  flux@modeemi.cs.tut.fi) identity=mailfrom;
  client-ip=130.230.4.42;
  receiver=mail1-smtp-roc.national.inria.fr;
  envelope-from="flux@modeemi.cs.tut.fi";
  x-sender="flux@modeemi.cs.tut.fi";
  x-conformance=sidf_compatible
Received-SPF: None (mail1-smtp-roc.national.inria.fr: no sender
  authenticity information available from domain of
  postmaster@mail.cs.tut.fi) identity=helo;
  client-ip=130.230.4.42;
  receiver=mail1-smtp-roc.national.inria.fr;
  envelope-from="flux@modeemi.cs.tut.fi";
  x-sender="postmaster@mail.cs.tut.fi";
  x-conformance=sidf_compatible
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AsoBAHTn+FCC5gQqe2dsb2JhbABFFr4zDgEBFiYEI4IfAQUnE08LISUPAQQYRIgZu2GOEIMpA5YMgRySJA
X-IronPort-AV: E=Sophos;i="4.84,489,1355094000"; 
   d="scan'208";a="190492282"
Received: from mail.cs.tut.fi ([130.230.4.42])
  by mail1-smtp-roc.national.inria.fr with SMTP; 18 Jan 2013 07:13:49 +0100
Received: from amavis2.cs.tut.fi (amavis2.cs.tut.fi [130.230.4.70])
	by mail.cs.tut.fi (Postfix) with ESMTP id 27884147
	for <caml-list@yquem.inria.fr>; Fri, 18 Jan 2013 08:13:48 +0200 (EET)
Received: from mail.cs.tut.fi ([130.230.4.42])
 by amavis2.cs.tut.fi (amavis2.cs.tut.fi [130.230.4.70]) (amavisd-maia, port 10024)
 with ESMTP id 18694-11 for <caml-list@yquem.inria.fr>;
 Fri, 18 Jan 2013 08:13:47 +0200 (EET)
Received: from modeemi.modeemi.fi (modeemi.modeemi.fi [130.230.72.134])
	by mail.cs.tut.fi (Postfix) with SMTP id 794BA146
	for <caml-list@yquem.inria.fr>; Fri, 18 Jan 2013 08:13:47 +0200 (EET)
Received: from coffee.modeemi.fi (coffee.modeemi.fi [130.230.72.140])
	by modeemi.modeemi.fi (Postfix) with ESMTP id 6D0EC16882
	for <caml-list@yquem.inria.fr>; Fri, 18 Jan 2013 08:13:53 +0200 (EET)
Received: by coffee.modeemi.fi (Postfix, from userid 17990)
	id 5A68C2D6088; Fri, 18 Jan 2013 08:13:53 +0200 (EET)
From: Erkki Seppala <flux-caml@inside.org>
To: caml-list@yquem.inria.fr
References: <871udjt7e1.fsf@golf.niidar.ru>
Date: Fri, 18 Jan 2013 08:13:53 +0200
In-Reply-To: <871udjt7e1.fsf@golf.niidar.ru> (Ivan Gotovchits's message of
	"Fri, 18 Jan 2013 08:57:58 +0400")
Message-ID: <m49pq13t3vi.fsf@coffee.modeemi.fi>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Virus-Scanned: Maia Mailguard 1.0.2
Subject: Re: [Caml-list] Removing repeating code

Hello,

Ivan Gotovchits <ivg@ieee.org> writes:
> Are there any possibility to remove code dublicating in a following
> function:
>
>   let f = let g = Array.length in function
>     | Strings a -> g a
>     | Floats a -> g a

let f = function | Strings a | Floats a -> Array.length a

Cheers :).

-- 
  _____________________________________________________________________
     / __// /__ ____  __               http://www.modeemi.fi/~flux/\   \
    / /_ / // // /\ \/ /                                            \  /
   /_/  /_/ \___/ /_/\_\@modeemi.fi                                  \/