Re: How do I shuffle an array?

The List::Util module provides a shuffle function which implements the Fisher-Yates shuffle.

use List::Util qw(shuffle);

my @data = (0..51);

my @cards = shuffle @data;
[download]

Comment on Re: How do I shuffle an array? Select or Download Code

Replies are listed 'Best First'.
Re: Answer: How do I shuffle an array? by wufnik (Friar) on Jun 16, 2003 at 11:01 UTC
I prefer japhy's one-liner, which achieves shuffling via fisher-yates: `@entry[-$i,$j] = @entry[$j,-$i] while $j = rand(@entry - $i), ++$i < @ +entry;` [download] as an aside - this is in the snippets section. would it not be nice to use snippets, or grinder's fabled categorized snippets library, as a source of data for categorized q&a? ttfn, ...wufnik -- in the world of the mules there are no rules --	[reply] [d/l]
Re: Answer: How do I shuffle an array? by gmpassos (Priest) on Jun 16, 2003 at 03:31 UTC
Independet way: `my @data = 0..51; my @cards = sort { (-1,1)[rand(2)] } @data ;` [download] Graciliano M. P. "The creativity is the expression of the liberty".	[reply] [d/l]
Re: Answer: How do I shuffle an array? by jdhedden (Deacon) on Dec 05, 2006 at 17:05 UTC
Math::Random::MT::Auto has a `shuffle` function, as well: `use Math::Random::MT::Auto 'shuffle'; my @cards = 0..51; shuffle(\@cards);` [download] Remember: There's always one more bug.	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks