let rec ler_floats n acc = 
 begin
  if n >= 0 then ler_floats (n-1) ((read_float ()) :: acc) else List.rev acc
 end

(* leitura que devolve o polinómio com os coeficientes ordenados do
grau mais alto ao grau mais baixo -- Se for mais prático a ordem
inversa, basta alterar a função ler_floats de acordo *)
let ler_poli () = 
  let grau = read_int () in
  ler_floats grau []

This document was generated using caml2html