Bonjours,
Etudiant en cpge option MP je galère sur mon TIPE et notamment sur un petit programme caml qui a l'air tout bête (il l'est surement).
Voila, je cherche à créer un programme qui a une chaine de caractères associe un tableau de 81 cases ne comportant que des 0.
Par exemple :
" fabriquer BOUZOU ;; "
me permettrait d'utiliser BOUZOU : " [|0;0;0.............0;0|] "
Merci
Pourquoi pas:
Let bouzou = make_vect 81 0;;
Attention en caml les majuscules sont réservées aux constructeurs de type, si tu mets des majuscules aux noms de tes variables, le compilateur devrait renvoyer un warning
Merci pour ta réponse,
Tu me proposes de créer un tableau portant le nom bouzou or ce qui m’intéresse, c'est de créer un programme qui a un nom donné associe le tableau nommé ainsi constitué de 81 cases 0.
Je ne peut pas me permettre dans mon programme final de créer moi-même les tableaux nécessaires car le nombre de tableau dont j'ai besoin varie, d'ou l'utilité de mon programme.
Ah, d'accord, je me disais que c'était trop simple.
Dans ce cas je te propose de passer via une liste d'association: j'ai fait un petit exemple en redéfinissant les fonctions utiles, mais je crois qu'elles sont déjà implémentées en caml:
Je te laisse le soin ensuite de créer les fonctions utiles pour modifier les tableauxlet fabriquer s l =
let a = make_vect 81 0 in (s,a)::l;;
fabriquer : 'a -> ('a * int vect) list -> ('a * int vect) list = <fun>
#let rec cherche s l = match l with
|[] -> failwith "introuvable"
|((string,a)::q) when string = s -> a
|(_::q) -> cherche s q;;
cherche : 'a -> ('a * 'b) list -> 'b = <fun>
#let l = ref [];;
l : '_a list ref = ref []
#l:= fabriquer "bouzou" (!l);;
- : unit = ()
#cherche "bouzou" (!l);;
- : int vect =
[|0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0;
0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0;
0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0;
0; 0; 0; 0; 0; 0|]
#
Parfait merci
