免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › perl实例精解的一道题，求解
123下一页
最近访问板块 发新帖
楼主: 超级细菌
打印 上一主题 下一主题

perl实例精解的一道题，求解 [复制链接]

guap514

论坛徽章:
0
11楼 [报告]
发表于 2011-03-26 12:09 |只看该作者
本帖最后由 guap514 于 2011-03-26 12:14 编辑
  1. @color=('梅花','方块','红桃','黑桃');
  2. @number=('A',2..10,'J','Q','K');
  3. foreach $a (@color) {
  4.     foreach $b (@number) {
  5.         push (@c,$a.$b);
  6.     }
  7. }
  8. #$r = int(rand(52)) and @c[ $_, $r ] = @c[ $r, $_ ] for 0..9;
  9. $r = int(rand(52)) , @c[ $_, $r ] = @c[ $r, $_ ] for 0..9;
  10. print @c[0..9];
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
心随行

论坛徽章:
0
12楼 [报告]
发表于 2017-03-22 12:54 |只看该作者
以下是我的实现方法，请指教！


  2. @huase=qw(Mei Fang Hong Hei);
  3. @numbers=('A', 2..10, 'J', 'Q', 'K');
  4. foreach $huase(@huase){                                          #生成52张牌；
  5.         foreach $numbers(@numbers){
  6.                 push @pai,"$huase"."$numbers";
  7.                 }
  8.         }
  9. print "@pai\n";                                      #打印出52张牌；

  11. print "10 randed pai is belowed:\n";

  13. $rand= int rand 52;
  14. push @rand10, $rand;
  15. #$i=0;

  17. #下面这个循环是用来生成10个不重复的52以内的随机整数。
  18. #然后再用这10个整数从52张牌中抽取10张不重复的牌。
  19. OUT: while(1){                                       
  20.         $rand=int rand 52;       
  21.         $geshu=@rand10;
  22.         foreach(@rand10){
  23.                 if ($rand==$_){
  24.                         $i=0;
  25.                         next OUT;
  26.                         }
  27.                 if($rand !=$_){
  28.                         $i++;
  29.                         if($i==$geshu){
  30.                                 push @rand10, $rand;
  31.                                 $geshu=@rand10;
  32.                                 last OUT if $geshu==10;
  33.                                 if ($geshu<10){
  34.                                         $i=0;
  35.                                         next OUT;
  36.                                         }
  37.                                 }
  38.                         }
  39.                 }
  40.         }
  41. print "@rand10","\n";   #打印出这10个不重复的52以内的随机整数。

  43. foreach (@rand10){
  44.         print "$pai[$_]\n";   #打印出这10张不重复的牌。
  45.         }
复制代码


实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
心随行

论坛徽章:
0
13楼 [报告]
发表于 2017-03-22 12:54 |只看该作者
以下是我的实现方法，请指教！


  2. @huase=qw(Mei Fang Hong Hei);
  3. @numbers=('A', 2..10, 'J', 'Q', 'K');
  4. foreach $huase(@huase){                                          #生成52张牌；
  5.         foreach $numbers(@numbers){
  6.                 push @pai,"$huase"."$numbers";
  7.                 }
  8.         }
  9. print "@pai\n";                                      #打印出52张牌；

  11. print "10 randed pai is belowed:\n";

  13. $rand= int rand 52;
  14. push @rand10, $rand;
  15. #$i=0;

  17. #下面这个循环是用来生成10个不重复的52以内的随机整数。
  18. #然后再用这10个整数从52张牌中抽取10张不重复的牌。
  19. OUT: while(1){                                       
  20.         $rand=int rand 52;       
  21.         $geshu=@rand10;
  22.         foreach(@rand10){
  23.                 if ($rand==$_){
  24.                         $i=0;
  25.                         next OUT;
  26.                         }
  27.                 if($rand !=$_){
  28.                         $i++;
  29.                         if($i==$geshu){
  30.                                 push @rand10, $rand;
  31.                                 $geshu=@rand10;
  32.                                 last OUT if $geshu==10;
  33.                                 if ($geshu<10){
  34.                                         $i=0;
  35.                                         next OUT;
  36.                                         }
  37.                                 }
  38.                         }
  39.                 }
  40.         }
  41. print "@rand10","\n";   #打印出这10个不重复的52以内的随机整数。

  43. foreach (@rand10){
  44.         print "$pai[$_]\n";   #打印出这10张不重复的牌。
  45.         }
复制代码


实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
心随行

论坛徽章:
0
14楼 [报告]
发表于 2017-03-22 12:55 |只看该作者
以下是我的实现方法，请指教！


  1. <div>@huase=qw(Mei Fang Hong Hei);</div><div>@numbers=('A', 2..10, 'J', 'Q', 'K');</div><div>foreach $huase(@huase){  <span class="Apple-tab-span" style="white-space:pre">                                        </span>#生成52张牌；</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>foreach $numbers(@numbers){</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>push @pai,"$huase"."$numbers";</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>}</div><div>print "@pai\n";              <span class="Apple-tab-span" style="white-space:pre">                        </span>#打印出52张牌；</div><div>
  2. </div><div>print "10 randed pai is belowed:\n";</div><div>
  3. </div><div>$rand= int rand 52;</div><div>push @rand10, $rand;</div><div>#$i=0;</div><div>
  4. </div><div>#下面这个循环是用来生成10个不重复的52以内的随机整数。</div><div>#然后再用这10个整数从52张牌中抽取10张不重复的牌。</div><div>OUT: while(1){<span class="Apple-tab-span" style="white-space:pre">                                        </span></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>$rand=int rand 52;<span class="Apple-tab-span" style="white-space:pre">        </span></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>$geshu=@rand10;</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>foreach(@rand10){</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>if ($rand==$_){</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>$i=0;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>next OUT;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>if($rand !=$_){</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>$i++;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>if($i==$geshu){</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>push @rand10, $rand;</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>$geshu=@rand10;</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>last OUT if $geshu==10;</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>if ($geshu<10){</div><div><span class="Apple-tab-span" style="white-space:pre">                                        </span>$i=0;</div><div><span class="Apple-tab-span" style="white-space:pre">                                        </span>next OUT;</div><div><span class="Apple-tab-span" style="white-space:pre">                                        </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>}</div><div>print "@rand10","\n";   #打印出这10个不重复的52以内的随机整数。</div><div>
  5. </div><div>foreach (@rand10){</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>print "$pai[$_]\n";   #打印出这10张不重复的牌。</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>}</div><div></div>
复制代码


实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
心随行

论坛徽章:
0
15楼 [报告]
发表于 2017-03-22 12:56 |只看该作者
以下是我的实现方式，请指教！


  1. @huase=qw(Mei Fang Hong Hei);
  2. @numbers=('A', 2..10, 'J', 'Q', 'K');
  3. foreach $huase(@huase){                                          #生成52张牌；
  4.         foreach $numbers(@numbers){
  5.                 push @pai,"$huase"."$numbers";
  6.                 }
  7.         }
  8. print "@pai\n";                                      #打印出52张牌；

  10. print "10 randed pai is belowed:\n";

  12. $rand= int rand 52;
  13. push @rand10, $rand;
  14. #$i=0;

  16. #下面这个循环是用来生成10个不重复的52以内的随机整数。
  17. #然后再用这10个整数从52张牌中抽取10张不重复的牌。
  18. OUT: while(1){                                       
  19.         $rand=int rand 52;       
  20.         $geshu=@rand10;
  21.         foreach(@rand10){
  22.                 if ($rand==$_){
  23.                         $i=0;
  24.                         next OUT;
  25.                         }
  26.                 if($rand !=$_){
  27.                         $i++;
  28.                         if($i==$geshu){
  29.                                 push @rand10, $rand;
  30.                                 $geshu=@rand10;
  31.                                 last OUT if $geshu==10;
  32.                                 if ($geshu<10){
  33.                                         $i=0;
  34.                                         next OUT;
  35.                                         }
  36.                                 }
  37.                         }
  38.                 }
  39.         }
  40. print "@rand10","\n";   #打印出这10个不重复的52以内的随机整数。

  42. foreach (@rand10){
  43.         print "$pai[$_]\n";   #打印出这10张不重复的牌。
  44.         }
复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
心随行

论坛徽章:
0
16楼 [报告]
发表于 2017-03-22 12:56 |只看该作者
以下是我的实现方法，请指教！


@huase=qw(Mei Fang Hong Hei);
@numbers=('A', 2..10, 'J', 'Q', 'K');
foreach $huase(@huase){                                          #生成52张牌；
        foreach $numbers(@numbers){
                push @pai,"$huase"."$numbers";
                }
        }
print "@pai\n";                                      #打印出52张牌；

print "10 randed pai is belowed:\n";

$rand= int rand 52;
push @rand10, $rand;
#$i=0;

#下面这个循环是用来生成10个不重复的52以内的随机整数。
#然后再用这10个整数从52张牌中抽取10张不重复的牌。
OUT: while(1){                                       
        $rand=int rand 52;       
        $geshu=@rand10;
        foreach(@rand10){
                if ($rand==$_){
                        $i=0;
                        next OUT;
                        }
                if($rand !=$_){
                        $i++;
                        if($i==$geshu){
                                push @rand10, $rand;
                                $geshu=@rand10;
                                last OUT if $geshu==10;
                                if ($geshu<10){
                                        $i=0;
                                        next OUT;
                                        }
                                }
                        }
                }
        }
print "@rand10","\n";   #打印出这10个不重复的52以内的随机整数。

foreach (@rand10){
        print "$pai[$_]\n";   #打印出这10张不重复的牌。
        }

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
sunzhiguolu

论坛徽章:
307
程序设计版块每周发帖之星 日期:2016-04-08 00:41:33操作系统版块每日发帖之星 日期:2015-09-02 06:20:00每日论坛发贴之星 日期:2015-09-02 06:20:00程序设计版块每日发帖之星 日期:2015-09-04 06:20:00每日论坛发贴之星 日期:2015-09-04 06:20:00每周论坛发贴之星 日期:2015-09-06 22:22:00程序设计版块每日发帖之星 日期:2015-09-09 06:20:00程序设计版块每日发帖之星 日期:2015-09-19 06:20:00程序设计版块每日发帖之星 日期:2015-09-20 06:20:00每日论坛发贴之星 日期:2015-09-20 06:20:00程序设计版块每日发帖之星 日期:2015-09-22 06:20:00程序设计版块每日发帖之星 日期:2015-09-24 06:20:00
17楼 [报告]
发表于 2017-03-22 14:24 |只看该作者

  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;
  5. use utf8;
  6. use List::Util qw /shuffle/;

  8. sub Builder{
  9.         foreach my $suit ('黑桃', '红心', '梅花', '方块'){
  10.                 foreach my $point ('A', 2 .. 10, 'J', 'Q', 'K'){
  11.                         push (@_, [$suit, $point]);
  12.                 }
  13.         }
  14.         @_;
  15. }

  17. binmode (STDOUT, ':encoding(cp936)');
  18. my @aCards = Builder ();
  19. my @aRand = shuffle (0 .. $#aCards);
  20. my @aTen = splice (@aRand, 0, 10);
  21. print @{$aCards[$_]}, "\n" for @aTen;
复制代码

perl abc.pl
----------------------------
梅花A
梅花8
红心7
黑桃8
红心J
梅花7
梅花3
黑桃7
红心K
梅花6
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
18楼 [报告]
发表于 2017-03-24 01:50 |只看该作者
本帖最后由 rubyish 于 2017-03-23 21:53 编辑
  1. #!/usr/bin/perl

  3. sub Card {
  4.     my @map = map {
  5.         my $it = $_;
  6.         map $it . $_, 'A', 2 .. 10, 'J', 'Q', 'K'
  7.     } qw[♠ ♥ ♦ ♣];
  8.     \@map;
  9. }

  11. sub Pick {
  12.     my ( $card, $num ) = @_;
  13.     return [] if $num <= 0;
  14.     my @pick = ( 0 .. $#$card );
  15.     my $it   = @pick;
  16.     $num = $it if $num > $it;

  18.     for my $i ( 0 .. $num - 1 ) {
  19.         my $j = $i + rand $it--;
  20.         @pick[ $i, $j ] = @pick[ $j, $i ];
  21.     }
  22.     [ @$card[ @pick[ 0 .. $num - 1 ] ] ];
  23. }

  25. my $card = Card;
  26. my $pick = Pick $card, 10;
  27. print "@$pick\n";

  29. __DATA__

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
19楼 [报告]
发表于 2017-03-24 02:19 |只看该作者
perl6
  1. #!perl6

  3. sub Card { <♠ ♥ ♦ ♣> X~ 'A', |(2 .. 10), 'J', 'Q', 'K' }
  4. my @card = Card;
  5. my @pick = @card.pick(10);
  6. say @pick;
复制代码


perl5: sub Card

  1. sub Card { glob '{♠,♥,♦,♣}{A,2,3,4,5,6,7,8,9,10,J,Q,K}' }
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
L_WC

论坛徽章:
0
20楼 [报告]
发表于 2017-03-24 10:43 |只看该作者
回复 1# 超级细菌

  1. <div>use List::Util 'shuffle';</div><div>use v5.10;</div><div>my @cards = glob '{♥,♠,♦,♣,}{2,3,4,5,6,7,8,9,10,A,J,Q,K}';</div><div>say @{[shuffle @cards]}[0..9];</div>
复制代码



实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP