Discussion :

[Untitled]

Bonjour

Mon problème est d'une simplicité enfantine, une fois qu'on le rend enfantin en tout cas...

J'essaye de faire un fichier Monfichier.ml qui une fois compilé en Monfichier, et exécuté, me renvoie les chiffres que je tape dans la ligne de commande.

Je m'explique, j'aimerais trouver ça sur mon terminal 'en couleur, ce que répond l'ordi' :

Code :

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

1
2
3
4
5
6
7
8
9
Untitled$ ./Monfichier
42
-> 42
30 
-> 30
-1
-> -1
Untitled$

Pour l'instant, je cherche comment faire avec Scanf.scanf, mais ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
 
let _ =
  let n = ref 0 in
  let print x = Printf.printf "->%d\n" x; n := x in
    while (!n!= -1) do
      Scanf.scanf "%d\n" print
    done

J'obtiens le résultat presque souhaité :

Code :

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

1
2
3
4
5
6
7
8
9
 
Untitled$ ./Monfichier
42
30
-1
->42
->30
->-1
Untitled$

Merci d'avance

[gasche]

Problème de buffering. Le symbole de "flush buffer" dans un format printf est "!". Il suffit donc d'utiliser :

Code ocaml :

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

let print = Printf.printf "->%d\n%!"

[SpiceGuid]

Ou alors tu peux utiliser la fonction read_int :

Code :

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

1
2
3
4
5
6
let n = ref 0 in 
while (!n <> -1) do
  n := read_int ();
  print_int !n;
  print_newline ();
done;;

[Untitled]

Ca marche, merci beaucoup.