Bonsoir à tous,

J'ai débuté Perl il y a de ça peu de temps et j'ai une question.

Comment dire à la fonction rand() de générer un nombre aléatoire compris entre 1 et 49 mais en excluant le fait qu'il puisse tomber sur un des nombres déja présents dans mon tableau @tableau ?

Pour bien situer le contexte, voici mon code :

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
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
# Variables
my ($range_max,$range_min) = (49,1);
my @tableau = ();
my $compteur = 0;
 
# Affiche 5 chiffres (de 1 à 49)
for (my $i=0; $i<5; $i++) {
$tableau[$compteur] = int(rand($range_max)) + $range_min;
print $tableau[$compteur]." ";
$compteur++;
}
J'ai un gros manque de méthodologie pour résoudre ce problème. Je ne sais malheureusement pas COMMENT procéder...

Merci par avance pour vos réponses

Cordialement, Clement.