La touche entrée en OCaml sur Windows

je débute en ocaml et puis je suis sur windows et j arrive pas a utiliser la fonction read_int () en fin quand je tape le nb et je fais entrée le curseur ne m affiche pas une réponse et revient a la ligne j aimerai bien savoir comment faire pour pouvoir fonctionner cette fonction.
je donne un exemple :
une fonction cpcm x renvoie bravo si le nb tapé par l utilisateur = x et c+ si il est inferieur et c- si il est superieur
#cpcm 5;;
taper un nombre : 3(*entrée*)

au lieu d afficher une reponse ce revient a la ligne

merci a tous

Ben, montre ton code.

J'ai testé ce programme (sous Linux) et ça marche bien :

Code:

---

1 2	let i = read_int () in Printf.printf "%d\n" i

---

Chez toi, ça marche ?
Si non, tu testes comment ? (en console ? en mode interactif ?)

non ca marche pas ca revient a la ligne chaque fois que je fasse entrée

Le code c'est ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#let rec cpcm n = let () = print_string "taper un nombre : " in let i = read_int () in if i = n then let () = print_string "BRAVO" in let () = print_newline () in print_newline () else let () = if i < n then let () = print_string "C+" in print_newline () else let () = print_string "C-" in print_newline () in cpcm n ;; val cpcm : int -> unit = <fun>   #cpcm 2;;

---

taper un nombre : 3 (et là, en tapant entrée, au lieu de m'afficher la valeur ça revient à la ligne et impossible de continuer).

Ton exemple marche chez moi. J'ai testé en compilant (ocamlc) et en mode interactif (ocaml), et tout fonctionne.

En revanche, dans le tuareg-mode d'emacs, il attend qu'on entre ";;" pour l'envoyer à l'interpréteur. Tu peux tester quand même en entrant les différents nombres à la suite, et en mettant le ";;" à la fin, mais ce n'est pas très pratique.

Le plus simple reste de compiler.

Conseil : utilise print_endline au lieu de print_string puis print_endline.