[SP-pm] TRNGs com Rand

[jimmy]

On Fri, Nov 05, 2010 at 09:49:01AM -0200, 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])
> }
> 
> ABS()
Eu usaria a função shuffle do core module List::Util

use List::Util qw(shuffle);
my @x = 1 .. 10;           
@x = shuffle @x;           
                           
print "$_\n" for @x;       

Contudo, pelo  fato de ninguém  ter mencionado  até agora, sou  levado a
pensar que  possa existir algo  de errado com  ele, a exemplo  do também
core module Switch, citado noutra thread.

-- 
"Não manejo bem as palavras
Mas manipulo bem as strings."
------------------------------