(* cálculo do n-ésimo número da sequência de perrin, versão trivial, mas ingénua *) let rec perrin = function 0 -> 3 1 -> 0 2 -> 2 n when n >= 0 -> perrin (n-2) + perrin (n-3) _ -> failwith "Argumento inválido" let () = Printf.printf "%d\n" (perrin (read_int ()))
This document was generated using caml2html