Maple: tirage aléatoire de 5 numéros distinctFermé

Question

Bonjour, 

Je souhaite utiliser Maple pour générer une liste de 5 numéros compris entre 1 et 49 et tous deux à deux distincts (pour simuler un tirage du loto).

Le fait est que l'utilisation de la fonction [rand(1..49),rand(1..49),rand(1..49),rand(1..49),rand(1..49)] génère parfois deux fois le même numéro (et meme pour ainsi dire quasiment à chaque fois).

Pouvez vous m'indiquer une procédure qui me donne directement 5 numéros distincts?

Merci d'avance

Templier Nocturne · Answer

je connais pas Maple, mais sur d'autres langages, on peut faire comme ça : 


a = rand(1,49)
b = rand(1,49)
while(a == b)
{
b = rand(1,49)
}
c = rand(1,49)
while(c == b || c == a)
{
c = rand(1,49)
}

et ainsi de suite

BobbyJones · Answer

Ok j'ai compris, je vais essayer de mettre ça en language Maple.
Merci pour la réponse.

BobbyJones · Answer

Bon voila j'en avais marre de chercher donc j'ai fait un truc qui marche à peu près (sauf si malheuresement le numéro en double est le 49). Si ça peut etre utile à quelqu'un;

restart:
> roll:=rand(1..49):
> H:=proc(n) local a,j,L;
>    a:=sort([roll(),roll(),roll(),roll(),roll()]);
>    L:=a[1];
>  for j from 2 to n do
>    if a[j]>a[j-1] then L:=L,a[j];
>    else L:=L,a[j]+1; fi; od; L; end proc;

il suffit alors de taper H(5)

Maple: tirage aléatoire de 5 numéros distinct

3 réponses

Discussions similaires

Newsletters