Syntax error : fonction recursive dans un while

Version imprimable

Bonjour,

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

Code:

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:

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

Quelqu'un aurait une solution ?
Merci .

Code:

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

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:

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ï

26/04/2008, 17h42
theo7

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

Citation:

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

Et aurait une autre solution ? While serait mieu ?
26/04/2008, 17h48
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:

1 2 print_string "kikoo\n";
26/04/2008, 17h52
theo7
Citation:
Envoyé par 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:

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 .
26/04/2008, 18h15
alex_pi
Citation:

Envoyé par theo7

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

Citation:

Envoyé par theo7

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:

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 ?
26/04/2008, 18h20
theo7

Citation:

Euh, non, ce n'est pas moche

Question de gout .

Citation:

Tu utilises quoi pour débuter ?

Je lis DA OCAML, je code sous Emacs .

Mais mon problème est toujours pas résolut :) .
26/04/2008, 18h21
Jedai

Tu as toujours print_endline si tu trouves \n moche, c'est toujours mieux que de mettre des print_newline partout.

Citation:

Mais mon problème est toujours pas résolut

Et tant que tu ne nous dis pas ce que tu veux faire, il ne le sera pas... (par nous en tout cas)

--
Jedaï
26/04/2008, 18h28
theo7
Citation:

Et tant que tu ne nous dis pas ce que tu veux faire, il ne le sera pas... (par nous en tout cas)

Je croyais l'avoir déjà bien expliquer .
Je veux que l'utilisateur aie a taper un nombre, et tant que ce nombre n'est pas egale a 1 on lui redemande . Si il est egal a 1 je fais quelque chose d'autre .

Tu mas proposé :
Code:

1 2 3 4 let rec choix () = (let resp = read_int() in if resp != 1 then choix ()) in choix ();
Mais comme je l'ai déjà dis, j'ai besoin d'utiliser "resp" en dehors de la fonction .

En C++ ça donnerais :
Code:

1 2 3 4 5 6 7 int choix = 0; while(choix != 1) { std::cin >> choix; } std::cout << choix;

Code:

1 2 3 4 5 6 7 let rec lire_un () = print_string "Entrer 1 :\n"; let un = read_int () in if un = 1 then un else lire_un ();; let choix = lire_un ();;
Bon, en même temps, vu que le nombre entré est forcément 1, ce n'est pas très très utile à mes yeux de le récupérer...

26/04/2008, 19h20
theo7
Seulement je fait ça dans un while comme je l'ai montré dans mon premier message (...)
Et avec les ; ça merde .
Code:

1 2 3 4 let rec choix () = (let resp = read_int() in if resp != 1 then choix ()) in choix ();
Marche sauf que après je peux pas récuperer "resp", comme jl'ai deja dit ...
26/04/2008, 19h36
alex_pi

En même temps, récupérer 1...

Bref, utilise une référence.

Un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
while true do
  print_string "Choix : ";
  let ch = 
    let rec choix () = 
      (let resp = read_int() in
	 if resp = 1 then resp else choix ()) 
    in choix ()
  in print_int ch;
done

Mais je ne suis pas convaincu que ce soit le plus élégant dans notre cas...

--
Jedaï

Merci .
J'ai egalement essayer avec un while mais ça ne marche pas :
Code:

1 2 3 4 5 6 7 8 while true do while choix != 1do let choix = read_int() done; (* Erreur de syntaxe sur cette ligne *) print_int choix; done;;

27/04/2008, 10h30
alex_pi
Je crois qu'il faut que tu lises un peu mieux le bouquin. Tu as quoi comme expérience dans les langages de programmation ? Parce que tu tentes clairement de faire de l'impératif avec des traits fonctionnels du langages.

Quand on défini une "variable" x avec

Code:

let x = foo in blablabla

le contenu de x est fixe et totalement inchangeable dans blablabla, quelque soit foo. Si tu veux "faire comme si" tu le changeais, il te faut une référence.
Code:

1 2 3 4 5 6 let x = ref foo in bla; bla; x := bar; bla
Je dis bien "faire comme si", parce que le contenu de x ne change pas, c'est le contenu de la zone mémoire dénontée par le contenu de x qui change.

Bref, au lieu de continuer le tatonement frustrant sur un programme qui ne fait rien, je te suggère de continuer de lire le bouquin, ou de te pencher sur des tutoriels (tu en trouveras sur ce site) pour un peu mieux t'impregner de la syntaxe particulière et de "l'esprit" fonctionnel

Encore une fois, bonne chance
27/04/2008, 13h03
theo7

Citation:

Tu as quoi comme expérience dans les langages de programmation ?

Je programme en PHP MySQL, et très légèrement en C et C++ .
Bon, je vais continué de lire le bouquin .
Merci .
27/04/2008, 14h22
alex_pi

Citation:

Envoyé par theo7

Je programme en PHP MySQL, et très légèrement en C et C++ .

Je me doutais bien que tu ne débutais malheureusement pas en programmation...

Essaye d'oublier ce que tu faisais en PHP et d'aborder OCaml avec un regard neuf, c'est le seul moyen d'apréhender la programmation fonctionnelle.

Goude leuque