Re: Array Shuffle

sub shuffler{
    foreach (@_){ 
        do{$r = int(rand($#_+1)); }while ((($r == $c) ||($temp[$r])));
        $temp[$r]= $_;$c++;
    }
    return @temp;
}
[download]

Thatll do it for you for a 1 dimensional array

hope it is what you were looking for

Edited by planetscape - added code tags

Comment on Re: Array Shuffle Download Code

Replies are listed 'Best First'.
Re^2: Array Shuffle by ambrus (Abbot) on Feb 28, 2006 at 21:46 UTC
That doesn't seem to work well either. It sometimes goes to an infinite loop.	[reply]