exception Input_Negativo (* versão recursiva simples (não recursiva terminal)*) let rec fib1 x = if (x<0) then raise Input_Negativo else if (x <= 1) then 1 else fib1 (x-1) + fib1 (x-2) let () = print_endline "Introduza um inteiro" let () = print_int (fib1 (read_int())) let () = print_newline()
This document was generated using caml2html