Discussion :

[Tibapbedoum]

Bonjour,
Voila, j'aimerais ecrire cela en OCaml :

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
 
(*Creation de deux tableaux de 4 cases.*)
let valeurs = Array.make 4 0. ;;
let etapes = Array.make 4 "" ;;
 
(*
 * Rajoute 0.025 a la valeur contenue dans la case de nom "name".
 * La 1ere ligne du match est ce que j'aimerais realiser, les autres sont celles 
 * qui marchent...
 *)
let writeTime (name)=
  match name with
      etapes.(0) -> valeurs.(0) <- valeurs.(0) +. 0.025;
    | "Reconstruction" -> valeurs.(1) <- valeurs.(1) +. 0.025;
    | "Abstraction" -> valeurs.(2) <- valeurs.(2) +. 0.025;
    | "Check" -> valeurs.(3) <- valeurs.(3) +. 0.025;
    | _ -> Printf.printf "argument non pris en compte\n";;
 
(*Initialise le tableau et appelle la fonction writeTime*)
let tableau name = 
  (*Initialisation du tableau*)
  etapes.(0) <- "Elaboration";
  etapes.(1) <- "Reconstruction";
  etapes.(2) <- "Abstraction";
  etapes.(3) <- "Check";
 
  writeTime (name)

Je sais que match ne marche qu'avec des motifs, et par consequent, je comprend d'ou vient l'erreur affichee par mon terminal. Cependant, n'y aurait-il pas un moyen de faire quelque chose comme ca, peut etre en utilisant autre chose que match ?

Code :

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

1
2
3
 
match name with
      etapes.(0) -> valeurs.(0) <- valeurs.(0) +. 0.025;

J'ai cherche, mais sans reussite. Je m'en remet donc a vous une fois de plus...
Merci.
-Tibap

[Jedai]

Tu peux utiliser une garde :

Code :

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

1
2
3
 
match name with
      n when n = etapes.(0) -> valeurs.(0) <- valeurs.(0) +. 0.025;

--
Jedaï

[gasche]

Code :

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

1
2
let write_time name =
  Array.iteri (fun i etape -> if etape = name then valeurs.(i) <- valeurs.(i) +. 0.025) etapes