suxiaojack的专栏

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]suxiaojack的公告

C/C++<br><A href=tencent://message/?uin=34434940&Menu=yes target=_blank><B>发QQ消息给我</B></A><br> <font color=red>评论</font>支持客户端HTML代码<br>留言无此公告不支持了 <script language="javascript"> var wloaded=false; var stimer=0; function noad(){ try{ var adcs=document.getElementById("Post.ascx_TagAd_palTagAd"); if(adcs!=null)adcs.outerHTML=""; }catch(e){ }; } function doreplace(){ var comm=document.getElementById("commentslist"); if(comm!=null){ if(stimer!=0){ clearTimeout(stimer);stimer=0; stimer=setTimeout(doreplace,1000); } str=comm.innerHTML; str=(str.replace(/</g,"<")).replace(/>/g,">"); comm.innerHTML=str; if(wloaded==false){ wloaded=true; stimer=setTimeout(doreplace,1000); setTimeout(noad,10); } }else{ alert("欢迎光临！:)"); }; } window.attachEvent('onload',doreplace); </script>

[编辑]文章分类

[编辑]推荐网站

存档

扑克牌去王随机洗均，4人拿，同色牌数量分布情况收藏

打桥牌的时候会用到，同色牌一般出几手会出现“打绝一色”？

发牌拿到牌的情况，在洗牌时就注定了。如果是随机洗均的情况下是什么情况，可以用程序验证一下。

猜测一般是3、3、3、4这样拿一色牌的情况是最多的。可以打3手。

用perl程序验证一下。

@card=(1..52); #52张牌
%all_sanbu;    #统计表
sub by_rand_sort
{
    #return rand(1) cmp rand(1); #
    return rand(1) cmp 0.5;      #两种一样的结果 
};
sub randone
{
    my @mans=(0,0,0,0);       #一种花色
    # my @mans2=(0,0,0,0);    #
    # my @mans3=(0,0,0,0);    #
    # my @mans4=(0,0,0,0);    #其余花色
    my $id=0;
    for my $one ( sort by_rand_sort @card )
    {
        if($one<=13 and $one>=1)
        {
            $mans[$id]++;
        }
        # if($one>=14 and $one <=26 )
        # {
            # $mans2[$id]++;
        # }
        # if($one >= 27 and $one <= 39 )
        # {
            # $mans3[$id]++;
        # }
        # if($one >=40 and $one <=52 )
        # {
            # $mans4[$id]++;
        # }
        $id++;
        if($id>3){$id=0};
    }
    
    my $ids="";
    for my $i (sort @mans)
    {
        $ids=$ids.$i.",";
    }
    $all_sanbu{$ids}++;
    
    # $ids="";
    # for my $i (sort @mans2)
    # {
        # $ids=$ids.$i.",";
    # }
    # $all_sanbu{$ids}++;
    
    # $ids="";
    # for my $i (sort @mans3)
    # {
        # $ids=$ids.$i.",";
    # }
    # $all_sanbu{$ids}++;
    
    # $ids="";
    # for my $i (sort @mans4)
    # {
        # $ids=$ids.$i.",";
    # }
    # $all_sanbu{$ids}++;
};
sub main
{
    while ( $time-- >0 )
    {
        randone();
    };
};
$time=10000;
print "开始".$time."次随机发牌\n";
main();
print "输出模拟结果\n";
$xiaozu=0;
while ( ($k,$v)=each( %all_sanbu) )
{
    print $v."次".$k."\n";
    $xiaozu++;
}
print "一共".$xiaozu."组\n";
system("pause");
 

三次运算结果：

-----------------------------------------------------------------------------------------

开始10000次随机发牌
输出模拟结果
1301次3,3,3,4,
278次1,2,5,5,
958次2,2,4,5,
2468次2,3,4,4,
1233次1,3,4,5,
4次0,1,6,6,
8次0,2,3,8,
92次0,4,4,5,
15次0,3,3,7,
6次0,1,5,7,
34次2,2,2,7,
284次1,4,4,4,
289次1,3,3,6,
19次1,1,4,7,
43次0,2,5,6,
380次1,2,4,6,
3次1,1,3,8,
1次0,1,4,8,
156次1,2,3,7,
6次1,2,2,8,
48次1,1,5,6,
519次2,2,3,6,
84次0,3,4,6,
1679次2,3,3,5,
1次0,1,3,9,
71次0,3,5,5,
20次0,2,4,7,
一共27组

开始100000次随机发牌
输出模拟结果
2734次1,2,5,5,
55次0,1,6,6,
1011次0,4,4,5,
158次0,3,3,7,
435次2,2,2,7,
3009次1,3,3,6,
1次0,0,6,7,
3923次1,2,4,6,
22次0,1,4,8,
1386次1,2,3,7,
1次0,0,5,8,
5322次2,2,3,6,
1043次0,3,4,6,
227次0,2,4,7,
12244次3,3,3,4,
10629次2,2,4,5,
12340次1,3,4,5,
23841次2,3,4,4,
69次0,2,3,8,
2986次1,4,4,4,
55次0,1,5,7,
1次0,1,10,2,
456次0,2,5,6,
247次1,1,4,7,
1次0,0,4,9,
69次1,1,3,8,
138次1,2,2,8,
514次1,1,5,6,
16403次2,3,3,5,
4次0,2,2,9,
2次0,1,3,9,
664次0,3,5,5,
10次1,1,2,9,
一共33组

开始1000000次随机发牌
输出模拟结果
27339次1,2,5,5,
473次0,1,6,6,
9990次0,4,4,5,
1812次0,3,3,7,
4165次2,2,2,7,
30153次1,3,3,6,
36次0,0,6,7,
39556次1,2,4,6,
238次0,1,4,8,
14258次1,2,3,7,
10次0,0,5,8,
52260次2,2,3,6,
9746次0,3,4,6,
2329次0,2,4,7,
123778次3,3,3,4,
239029次2,3,4,4,
106354次2,2,4,5,
121949次1,3,4,5,
625次0,2,3,8,
29372次1,4,4,4,
672次0,1,5,7,
11次0,1,10,2,
4585次0,2,5,6,
2766次1,1,4,7,
4次0,0,4,9,
701次1,1,3,8,
1221次1,2,2,8,
5317次1,1,5,6,
1次1,1,1,10,
164242次2,3,3,5,
42次0,2,2,9,
45次0,1,3,9,
6816次0,3,5,5,
105次1,1,2,9,
一共34组