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