买双色球的哥们,可以看下这个perl

dahe_1984

回复  dahe_1984


    球号不能重复啊, 所以要删了
BangBull 发表于 2011-03-11 10:54

    红球和篮球不能重复么？ 删除了取红球怎么取呢

BangBull

回复 9# ziyunfei


       ,  还不会用模块 , 正常算看大骆驼

BangBull

回复 11# dahe_1984


    我也不大会玩双色球, 不知道 红球 和蓝球 是不是可以重复

zhlong8

回复 10# BangBull


    如果双色球有108个球你就会想办法了，33个还是太少啊

dahe_1984

红球和篮球不能重复么？ 删除了取红球怎么取呢
dahe_1984 发表于 2011-03-11 11:00

    2011-01-13 11006     01 03 05 13 16 18 + 05

BangBull

回复 14# zhlong8


        108 个, 这机率, 谁还去买啊

ziyunfei

回复  ziyunfei


       ,  还不会用模块 , 正常算看大骆驼
BangBull 发表于 2011-03-11 11:03

    我连小骆驼也没看，就是看别人发的帖子。就知道几个模块

dahe_1984

#!/usr/bin/perl

use strict;

my %hash = (
1 => 1,2 => 2,3 => 3,4 => 4,5 => 5,6 => 6,7 => 7,8 => 8,9 => 9,10 => 10,11 => 11,12 => 12,13 => 13,14 => 14,15 => 15,16 => 16,17 => 17,18 => 18,19 => 19,20 => 20,21 => 21,22 => 22,
23 => 23,24 => 24,25 => 25,26 => 26,27 => 27,28 => 28,29 => 29,30 => 30,31 => 31,32 => 32,33 => 33,
);
my @votes;
my $blue;
my $red;
my @vote;

# blue ball
while(1) {
        $blue = int(rand 33) + 1;
        if(grep { $_ eq $blue } @votes) {
            next;
        } else {
            push @votes, $blue;
        }
        if($#votes == 5) {last ;}
#        delete $hash{$blue};
}

#red ball
for ( 1 ) {
        $red = int(rand 16) + 1 ;
        redo unless defined($hash{$red}) ;
}

@vote = sort { $a <=> $b } @votes ;

printf "%15s%5s\n", "@vote" ,$red ;

dahe_1984

可以去抓网页，匹配多少次可以和上期重复上

BangBull

回复 17# ziyunfei


    Perl 模块 的中文说明很少 , 看英文累啊,  遇上茬子了 ,

    这可咋办哪