RE: Scripts picks random elements from array , but it repeats som etimes

[Wagner-David]

        Here is one option:
#!perl -w
my @numbers = qw( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 );
my $numofques = scalar(@numbers);
my @MySeen = ();

while($numofques > 0) {
    $index   = rand @numbers;
    next if ( defined$MySeen[$index] );
    $element = $numbers[$index];
    printf "%-3d ", $element;
    $MySeen[$index] = 1;
    $numofques--;
 }
printf "\n";

Output:
12  16  5   19  15  14  8   17  7   18  1   13  3   10  6   9   2   11  4

Wags ;)

-----Original Message-----
From: FLAHERTY, JIM-CONT [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 29, 2002 11:58
To: Beginners (E-mail)
Subject: FW: Scripts picks random elements from array , but it repeats
som etimes


 
Hello , My script picks out random elements from an array , but it sometimes
repeats ( which is no good) .. I want to prevent this , Do I delete the
element from the array .... or is there a better way ? And how do I do
either ?  
 
 
 
my mistake here is the code 
 
 
 
 
while($numofques > 0) {
    $index   = rand @numbers;
    $element = $numbers[$index];
 
 
 

 
 
 
 
 
Thanks 
Jim

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]