统计数字出现次数，可能有点难。

kwokcn

n是取出的元素个数，具备一定容错功能。

1. 
   
2. awk -F, -v n=4 '
   
3. 
   
4. function b(s,x,y)
   
5. {
   
6.     if(!y||y>NF-x+1) return
   
7.     if(y==1)
   
8.     {
   
9.         for(i=x;i<=NF;i++) a[s?s","$i:$i]++
   
10.         return
    
11.     }
    
12.     b(s,x+1,y)
    
13.     b(s?s","$x:$x,x+1,y-1)
    
14. }
    
15. 
    
16. {
    
17.     if(n>NF) exit
    
18.     b("",1,n)
    
19. }
    
20. 
    
21. END {
    
22.     for(i in a)
    
23.     {
    
24.         if(a[i]>max)
    
25.         {
    
26.             r=i
    
27.             max=a[i]
    
28.         }
    
29.     }
    
30.     print r,max
    
31. }
    
32. 
    
33. ' URFILE
    

复制代码

呃，没注意要次数，稍微修改了一下。

[ 本帖最后由 kwokcn 于 2009-7-26 16:18 编辑 ]

blackold

晕，题目我都看不懂。

liaosnet

怎么感觉像是彩票分析呀~

理解题目应该是 6选4....那么一行就有24种组合..每组合当个数组项..然后做统计..

[ 本帖最后由 liaosnet 于 2009-7-27 10:17 编辑 ]

00306

原帖由 liaosnet 于 2009-7-27 10:13 发表
怎么感觉像是彩票分析呀~

理解题目应该是 6选4....那么一行就有24种组合..每组合当个数组项..然后做统计..

呵呵，我也这么想，有经济头脑

00306

以前也这么搞过，不过后来发现这样算出来的数字基本上不靠谱

wtuter

中了的话得分我们点哈

liaosnet

原帖由 wtuter 于 2009-7-27 14:00 发表
中了的话得分我们点哈

在中国就不要考虑买彩票了~~

lucash

没看明白 ，楼主国语水平不行。。。

ljt2k

原帖由 kwokcn 于 2009-7-26 16:12 发表
n是取出的元素个数，具备一定容错功能。

awk -F, -v n=4 '

function b(s,x,y)
{
    if(!y||y>NF-x+1) return
    if(y==1)
    {
        for(i=x;iNF) exit
    b("",1,n)
}

END {
    for( ...

这个没有看懂啊，函数b是什么功能？求组合吗？
怎么第一次调用是b("",1,4)?

kwokcn

嗯，就是获取组合。效率不见得咋地，拍脑袋写的，没考虑算法，就直接一递归。
b函数的三个参数，s是已拼装的字符串，x是当前下标，y是剩余元素个数。