Discussion :

[McCrazy]

Bonjour ,

je viens de commencer à faire du perl (1er exos) ,
et ce que j'aimerai c'est d'écrire une sous-routine , me permettant de remplir un tableau de taille 100 par exemple , avec des entiers aléatoires . jusqu'ici j'arrive à le faire , mon problème c'est que je veux tous les éléments du tableau soient différents , alors là je met un petit test dans ma sous-routine pour remplir le tableau comme désiré , mais plus rien ne marche .
quelqu'un pourrait il m'aider ?

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
28
#!/usr/bin/perl 
 
 
#$essaie = 10;
 
sub random_array{
 
# for ( $i=0 ; $i<10; $i++){
 
# $array[$i]= int(rand 10)+1;
 
# }
for ($i=0 ; $i<10 ; $i++){
 
$array[$i]= int(rand 10)+1;
for ($j=1 ; $j<10 ;$j++){
do { 
$array[$i]= int(rand 10)+1;
}while($array[$i]==$array[$j])
 
}
print " Voici le tableau de nombres alatoires @array \n ";
} 
 
# print " Voici le tableau de nombres alatoires @array \n ";
}
 
&random_array;

[jabbounet]

le principe a mettre en oeuvre ici serait (en algo)

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
indiceTableau = 0;
boucle
  x = random;
  trouvé = faux;
 
  # recherche si x est déjà dans le tableau
  pour i allant de 0 a indiceTableau
    Si (tableau[i] == x) alors 
         trouvé = vrai
         Sortir de la boucle pour
     finsi
  finpour 
 
  # si x n'est pas dans le tableau alors on l'insère
  si (trouve == faux)  alors
    tableau[indiceTableau] = x
    indiceTableau = indiceTableau + 1
  finsi
 
  si (indiceTableau == 100) Sortir de la boucle
finboucle

Autrement il faut être certains que le nombre de valeur générée par rand est plus grand que la taille du tableau sinon tu as un boucle infinie.

[Jedai]

Une approche alternative qui marche pas mal, c'est de générer une suite strictement croissante de nombre aléatoires (par exemple en se contentant d'ajouter un nombre aléatoire non-nul au dernier élément ajouté à la liste) dont on est ainsi sûr qu'ils sont bien distincts, puis de mélanger (cf shuffle de List::Util). Ca a l'avantage d'être en O(n) contrairement au O(n²) de l'approche de jabbounet (on peut l'améliorer en utilisant un hash mais contre une grosse utilisation mémoire).

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use List::Util qw/shuffle/;
 
sub random_array {
  my( $num_elts, $increase_limit ) = @_;
 
  my @arr = (0) x $num_elts;
  my $rnum = 0;
  for( my $i = 0; $i < $num_elts; $i++ ) {
    $rnum += int(rand $increase_limit + 1);
    $arr[$i] = $rnum;
  }
 
  return shuffle(@arr);
}

--
Jedaï

[McCrazy]

bonjour ,

merci pour vos reponses .

une autre question que j'ai c'est que : comment j'ai envie de creer un tableau de taille fixe ou variable , le tableau au départ est vide , comment est ce je déclare cela ?????
je peux faite par exemple:

@newtab = ();
mais pour la taille comment je procède?

merci

[Philou67430]

Tu n'as pas vraiment à te soucier de la taille, elle s'arrange automatiquement en fonction des ajouts que tu y fait à la fin, soit en utilisant push, soit en utilisant l'indice du dernier élément. Toutes les lignes suivantes sont équivalentes :

Code :

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

1
2
3
push @table, $nombre;
$table[$#table+1] = $nombre;
$table[@table] = $nombre;

Mais comme Jedai le fait dans son exemple, tu peux aussi "définir" ta table avec des valeurs initiales :

Code :

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

@table = (0) x $taille_table;

Au passage, j'apprends que l'opérateur x a un usage dans un contexte de liste que je ne connaissais pas... merci Jedai