Re: Is there a better way to generate unique set of random numbers ?

I have another suggestion that would seem slightly more linear than stabbing away at a %seen hash:

my @numbers = (1 .. 10);
while (@numbers) {
  my $index = rand(@numbers);
  my $pick = splice(@numbers, $index, 1);
  print "$pick\n";
}
[download]

Edit: The first version had an off-by-one error :o)

-- Time flies when you don't know what you're doing

Comment on Re: Is there a better way to generate unique set of random numbers ? Download Code