[Caml-list] Removing repeating code

[Ivan Gotovchits <ivg@ieee.org>]

Hi!

It was difficult to find a proper phrase for a subject field, sorry. But
in ocaml it is really easier to formulate, so going right to the
question.

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

which have a type

  val f : value -> int

where value is

  type value =
    | Strings of string array
    | Floats of float array

May be there is some trick?

Thanks in advance!
  

-- 
         (__) 
         (oo) 
   /------\/ 
  / |    ||   
 *  /\---/\ 
    ~~   ~~   
...."Have you mooed today?"...