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;
Partager