perl實例精解的一道題，求解

超級細菌

編寫一段腳本 , 從一疊紙牌中隨機抽取 10 張 , 并打印結(jié)果值 。
a. 該腳本應(yīng)當(dāng)先借助 foreach 循環(huán)構(gòu)建一套 52 張牌 。
b. 外層循環(huán)負責(zé)按照花色遍歷整套紙牌:
梅花、 方塊 、 紅桃 、 黑桃 。 內(nèi)層循環(huán)則針對每一種花色
遍歷所有數(shù)字 : A 、到 10 、 J 、 Q 以及 K 。 從各花色獲得的紙牌都將賦值到一個數(shù)組中 。
c. 使用 rand() 函數(shù)從上述數(shù)組中隨機獲得一張紙牌 。
這樣做便能保證獲得的 10 張紙牌互不重復(fù) 。

zhlong8

#!/usr/bin/perl -w

use 5.012;
use List::Util 'shuffle';
use Data::Dumper;

my @cards;

for my $color ('梅花', '方塊', '紅桃', '黑桃') {
    for my $point ( 'A', 2 .. 10, 'J', 'Q', 'K') {
        push @cards, [$color, $point];
    }
}

print Dumper [(shuffle @cards)[0 .. 9]]

seufy88

#!/usr/bin/perl -w

use 5.012;
use List::Util 'shuffle';
use Data:umper;

my @cards;

for  ...
zhlong8 發(fā)表于 2011-03-08 15:19

遇到生疏的模塊又高興又怕，高興的是學(xué)到新模塊了，怕的是我為什么沒用過看過這個模塊

zhlong8

模塊是個積累的過程，問題這個 List::Util 是標(biāo)準(zhǔn)模塊之一

超級細菌

1. #!/usr/bin/perl -w
   
2. @color=('梅花','方塊','紅桃','黑桃');
   
3. @number=('A',2..10,'J','Q','K');
   
4. foreach $a (@color) {
   
5.         foreach $b (@number) {
   
6.         push (@c,$a.$b);
   
7.         }
   
8. }
   
9. for ($d=0;$d<10;$d++) {
   
10.      $e=(int rand (52))-1;
    
11.      print "$c[$e]\n";
    
12. }

復(fù)制代碼

今天突然看到之前發(fā)的這個問題，樓上的給的答案沒有按照題目要求來，請高手看下我寫的這個，我覺得很羅嗦，請指正，謝謝！

xfoucs

今天突然看到之前發(fā)的這個問題，樓上的給的答案沒有按照題目要求來，請高手看下我寫的這個，我覺得很羅嗦， ...
超級細菌 發(fā)表于 2011-03-25 14:46

方塊J
黑桃2
黑桃J
黑桃2
紅桃3
黑桃10
紅桃5
黑桃8
紅桃K
黑桃2

運行了一次就發(fā)現(xiàn)有3個重復(fù)的

2gua

zhlong8

超級細菌

不是吧？太失望了，{:3_194:}還得再改改

kexinqw

#!/usr/bin/perl -w
@color=qw('方塊' '黑桃' '紅桃' '梅花');
@sign=qw(A J Q K);
@num=(2..10);
@num1=(@sign,@num);
$i=0;
foreach $color(@color)
{
    foreach $num1(@num1)
   {
            $v[$i]=$color.$num1;
            #print "${v[$i]}\n";
             $i++;
   }
}
$flag=0;
foreach (1..10){
    $rand=rand(52)+1;
    $rand=int($rand);
    if($flag!=$rand)
   {
        print "$v[$rand]\n";
                $flag=$rand;
   }
    else
    {
        $_--;
    }
}