[SP-pm] TRNGs com Rand

[Luis Motta Campos]

On 11/05/2010 12:49 PM, Stanislaw Pusep wrote:
> Legal!
> Aproveitando: como vocês fazem para dar um shuffle() num array qqer? Eu
> costumo fazer:
> 
> my @x = (1..10);
> for (my $i = 0; $i <= $#x; $i++) {
>     my $j = rand $#x;
>     ($x[$i], $x[$j]) = ($x[$j], $x[$i])
> }

Para citar uma coisa que o Node 1869 do PerlMonks não menciona:

http://search.cpan.org/~abigail/Algorithm-Numerical-Shuffle-2009110301/lib/Algorithm/Numerical/Shuffle.pm

Putamplexos
-- 
Luis Motta Campos is a DBA,
Perl Programmer, foodie and photographer.