Discussion :

[fares12]

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

[LLB]

Ben, montre ton code.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?)

[fares12]

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

[fares12]

Le code c'est ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[LLB]

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.