Debutant en Ocaml mon code boucle

Bonjour j'ai quelques difficultés à faire marcher mon code:
Je souhaite créer une liste de n éléments aléatoirement ordonnés, de chiffre compris entre 0 et n
Mon code boucle, si quelqu'un a une piste ou quelques modifications à me proposer ?... Merci à vous !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

let alea n = let rec creationlist l = let x= Random.int n in if (List.mem !x l ) then creationlist l else begin if (List.length l>n) then l else creationlist (!x::l) end in creationlist [] ;;

---

Bonsoir,

Votre code fonctionne presque parfaitement à deux exceptions prêt :

- Premièrement, votre condition ne doit pas être

Code:

---

if List.length l > n

---

mais

Code:

---

if List.length l >= n

---

En effet,

Code:

---

Random.int n

---

renvoie un entier compris entre 0 et n exclus donc avec une inégalité stricte votre code ne s'arrêtera jamais
- Deuxièmement, la condition

Code:

---

if List.length l >= n

---

doit être la première condition sinon votre code vérifie

Code:

---

List.mem x l

---

(ce qui est toujours vrai quand

Code:

---

List.length l = n

---

car vous avez bien mis les n entiers entre 0 et n-1) et fait donc indéfiniment l'appel récursif.

Au demeurant, votre code ne peut pas être compilé avec vos

Code:

---

!x

---

vu que x est un entier, pas une référence.

Le code final ressemblerait donc à ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

let alea n = let rec creationlist l = let x = Random.int n in if List.length l >= n then l else if List.mem x l then creationlist l else creationlist (x :: l) in creationlist []   let () = alea 10 |> Format.eprintf "@[<h>%a@." Format.(pp_print_list (fun ppf i -> Format.fprintf ppf "%d" i))

---

Citation:

---

❯ ocamlc -o alea alea.ml
❯ ./alea
3687091254

---

Si vous voulez un résultat différent à chaque fois, pensez à utiliser

Code:

---

Random.self_init ()

---

Bon courage !

Un grand grand merci pour m'avoir éclairé !!!!