求助 数组随机重排

icybay

sub shuffle {
        my $deck=shift;
        my $i=@$deck;
        return unless $i;
        while (--$i) {
                my $j=int rand ($i+1);
                @{$deck}[$i,$j]=@{$deck}[$j,$i];
        }
}

最后的一句没看明白， 谁能解释一下

kk861123

同：

1. ($deck->[$i],$deck->[j]) = ($deck->[j],$deck->[i]);

复制代码

jason680

回复 1# icybay

昨天看到map....
在此用map为最佳时机

@array_change = map { [ @$_[1,0] ] } @array;
   

icybay

回复 2# kk861123

谢谢,明白了
   

icybay

回复 3# jason680

可否解释一下
   

jason680

回复 5# icybay

$ cat map.pl

use strict;
use warnings;

my @array = ( [qw/00 01/], [qw/10 11/], [qw/20 21/]);
print "=== original array ===\n";
foreach(@array){
  print "$_->[0],$_->[1]\n";
}

# use map to change array easily ...
my @array_change = map { [ @$_[1,0] ] } @array;
print "=== changed array ===\n";
foreach(@array_change){
  print "$_->[0],$_->[1]\n";
}

$ perl map.pl
=== original array ===
00,01
10,11
20,21
=== changed array ===
01,00
11,10
21,20

   

icybay

回复 6# jason680

thanks
   

rubyish

谢谢,学习了

gaoyang636

jason680 发表于 2012-02-21 15:02
回复 5# icybay

$ cat map.pl

涅这个不算是随机重排啦～{:2_167:}

jason680

回复 9# gaoyang636

you are right, it didn't have the random function.
and thank you for your advice.