my @arr=(1..20);
for(1..200)
{
$random_position=int(rand($#arr));
$var=splice(@arr, $random_position, 1);
push(@arr, $var);
}
foreach (@arr)
{print "$_\n";}
This is a FAQ but the short answer is to use List::Util's shuffle() function. If you are interested in other ways then search the FAQs ;-)
Cheers - L~R
Why don't people read FAQs any more?
How do I shuffle an array randomly?
<http://dave.org.uk>
"The first rule of Perl club is you do not talk about
Perl club."
-- Chip Salzenberg
Why don't people read FAQs any more?Maybe because they don't know how? :)
perldoc -q randomor one could take a look in the Perl FAQ here at PM, sneakily called [id://1843] (array->how do I shuffle).
-- Hofmator
Hi [tamaguchi], Try this,
use strict; use warnings; use Data::Random qw(:all); my @set = (1..200); my @random_set = rand_set( set => \@set, size => $#set ); $,="\n"; print @random_set;
Regards,
Velusamy R.
eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';
You need to know this: The shuffle() routine implemented in List::Util is a fair shuffle; It is an implementation of the fisher-yates shuffle. Other recipies such as yours are not certain to be 'fair'. I don't know if yours is biased or not, but why leave it to chance when there's a perfectly good alternative built into a module that comes with Perl? I do know that it is very easy to get it wrong when writing an unbiased shuffle routine. Good thing someone included a fair, unbiased shuffle in List::Util
Dave
blokhead
If this is for a class project or a nuclear power plant I wouldn't do it this way:
@a = (0..20);$,="\n";
for(0..200){$b=shift @a;push @a,(int rand 2)?($b,shift @a):(shift@a,$b)}
print @a;
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
I recommend a look at the node 1824 section of Categorized Questions and Answers:
Super Search is your friend:
... and so on.
HTH,
The best way to unsort an array? Sort it!!
@a=0..20;$,=" ";
print sort {1-int rand 3} @a;
OK, I couldn't resist golfing it.
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}