j'essaye de programmer sur caml la suite de fibonacci

voilà ce que j'ai écrit

let fiboit(n) = let fibo0 = ref 1; let fibo1 = ref 1; let fibo = ref 1 in
for i = 2 to n do
fibo := !fibo0 + !fibo1
fibo0:= !fibo1
fibo1:= !fibo
done;
!fibo;;

mais cmal me dit que c'est pas bon !!
mais c bon, non ?

En Caml fonctionnel tu as ça:
let rec fibo n = match n with 1 -> 1 | 2 -> 1 | _ -> fibo(n-1)+fibo(n-2);;

en impératif, ton programme s'écrit:
let fiboit(n) = let fibo0 = ref 1 and fibo1 = ref 1 and fibo = ref 1 in
for i = 2 to n do
fibo := !fibo0 + !fibo1;
fibo0:= !fibo1;
fibo1:= !fibo;
done;
!fibo;;

Mais il donne un résiltat faux.

Tu as juste oublier quelques points virgules dans ton programme. Cela dit, quand Caml te dit que ce n'est pas bon, tu ferais mieux de nous donner le messages d'erreur en question si tu viens chercher de l'aide (et au passage, croire le message d'erreur) plutôt que nous dire que le compilo se trompe.

C'est extrêmement rare qu'il y ai des erreurs dans le compilo Caml, donc tu ne risque pas de tomber dessus.

C'est vraiment trash ton programme, ceci me semble beaucoup plus simple :
let rec fib (n:int)=
match (n<2) with
|true->1
|_->fib(n-1)+fib(n-2);;

en même temps son programme était itératif à base de boucle. Peut-être qu'il n'avait pas encore vu ce que c'était qu'un programme récursif, donc ton programme ne peut pas vraiment être comparé en terme de simplicité avec le sien

La récursivité est plus longue et le bouclage Fibonacci ^^