(* 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