Prog Caml : Fonction syracuse

On va maintenant étudier la remarquable suite de Syracuse.

Pour commencer, il faut définir la fonction de Syracuse. Cette fonction, nommée syracuse, prend en paramètre un entier nommé p. Si p est pair, elle renvoie p / 2 (la moitié de p). Si p est impair, elle renvoie 3 * p + 1.

Code à compléter Caml

let read_int() = Scanf.scanf " %d" (fun x -> x);;

let syracuse p =
(*à compléter*)
  in

print_int (syracuse (read_int()));;