Discussion :

[theo7]

Bonjour,

voila j'ai une erreur de syntaxe que je n'arrive pas a réssoudre .
J'ai ce code la :

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
21
22
23
24
25
26
27
type personne =
{
 id     :int    ;
 prenom :string ;
 nom    :string ;
 age    :int
}
;;
 
while true do
  print_string "-------------------";
  print_newline();
  print_string "-Programme de test-";
  print_newline();
  print_string "-------------------";
  print_newline();
  print_newline();
  print_string "1 - Ajouter une personne";
  print_newline();
 
  print_string "Choix : ";
  let rec choix = 
    read_int();
    if choix != 1 then choix (* /!\ Ligne 30 /!\ *)
  ;
done
;;

Ocaml me renvois :

Code :

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

1
2
File "test.ml", line 30, characters 4-6:
Syntax error

Quelqu'un aurait une solution ?
Merci .

[Jedai]

Code :

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

1
2
3
4
let rec choix = 
    read_int();
    if choix != 1 then choix (* /!\ Ligne 30 /!\ *)
  ;

est lu comme

Code :

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

1
2
let rec choix = read_int();
if choix != 1 then choix;

(OCaml n'utilise pas de système de layout comme Python ou Haskell)

Je pense que ce que tu voulais faire était plutôt :

Code :

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

1
2
3
4
let rec choix () = 
    (let resp = read_int() in
     if resp != 1 then choix ()) 
in choix ();

ou quelque chose comme ça (ça n'a pas l'air très utile comme fonction non plus...).

--
Jedaï

[theo7]

Mais je doit utiliser la variable "resp" après la fonction choix, et la avec "in" ça ne marche pas .

ça n'a pas l'air très utile comme fonction

Et aurait une autre solution ? While serait mieu ?

[alex_pi]

Juste pour info, il fait quoi ton programme ??

Et si tu veux mettre un retour chariot en fin de ligne, tu peux faire

Code :

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

1
2
 
print_string "kikoo\n";

[theo7]

Juste pour info, il fait quoi ton programme ??

Et si tu veux mettre un retour chariot en fin de ligne, tu peux faire

Code :

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

1
2
 
print_string "kikoo\n";

Pour l'instant il fait rien : je débute en OCAML .
Je trouve ça moche les \n et la fonction print_newline() a bien du être crée pour quelque chose non ? Enfin je crois .

[alex_pi]

Pour l'instant il fait rien : je débute en OCAML .

Moi je trouve ça plus sympathique d'écrire du code qui fait quelque chose, mais bon...

Je trouve ça moche les \n et la fonction print_newline() a bien du être crée pour quelque chose non ? Enfin je crois .

Euh, non, ce n'est pas moche, surtout pas en fin de chaîne. Et print_newline, c'est plus pour des cas comme

Code :

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

1
2
3
4
5
 
let i = read_int () in
  print_string "Vous avez entré ";
  print_int i;
  print_newline();;

Bon courage en tout cas pour ton apprentissage d'OCaml. Tu utilises quoi pour débuter ?