看似简单又不易解决的一个问题

密码很长

看似简单又很难解决的一个问题

现有文本格式如下，数据是学生多次考试的成绩，第一列为姓名，第二列为分数。
如何用awk等工具，统计出考过相同分数的同学，按考过分数相同的频次，由高到低排序。

姓名 成绩
张三 85
李四 85
王五 85
赵六 60
.
.
.
张三 95
李四 90
王五 90
赵六 70
.
.
.
张三 65
李四 60
王五 60
赵六 70
.
.
.

如果按上面数据为例，统计结果如下三列：

频次 姓名 相同分数同学              频次解释（该列不需要）

4    李四  王五                  （“李四 85 ， 王五 85 ”；“李四 85 ，张三 85 ”；“李四 90 ，王五 90 ” ；“李四 60，王五 60”）
2    王五  李四                  （“王五 85， 李四 85”；“王五 90， 李四 90”；“王五 60， 李四 60”）
1    张三  李四                  （“张三 85 ， 李四 85 ”）
1    李四  张三                  （“李四 85 ， 张三 85 ”）
1    李四  王五                  （“李四 85 ， 王五 85 ”）

cao627

好费解!

4    李四  王五                  （“李四 85 ， 王五 85 ”；“李四 85 ，张三 85 ”；“李四 90 ，王五 90 ” ；“李四 60，王五 60”）

这行的意思是不是: 李四是和别人有四次分数相同的,和 和王五三次(分别都是 85,90,60) 和 张三有一次相同(都是85),三次加一次是4次,所以第一列要输出4,
但为什么名字只有李四和王五,张三为什么不写上去? 唯一的解释,王五和李四有3次相同,张三只有一次,取最多的一个人,但这又引出一个问题:如果张三也有三次分数和李四相同,怎么写

2    王五  李四                  （“王五 85， 李四 85”；“王五 90， 李四 90”；“王五 60， 李四 60”）

如果我蓝色那行字的分析是对的,这一行的开头为什么是2? 为什么不是三,有三个分数和别人(且同一人)相同85,90,60.

密码很长

二楼说的对，第二行的数字应该是3
不好意思，敲错了，非常感谢纠正！

如果按上面数据为例，统计结果如下三列：

频次 姓名 相同分数同学              频次解释（该列不需要）

4    李四  王五                  （“李四 85 ， 王五 85 ”；“李四 85 ，张三 85 ”；“李四 90 ，王五 90 ” ；“李四 60，王五 60”）
3    王五  李四                  （“王五 85， 李四 85”；“王五 90， 李四 90”；“王五 60， 李四 60”）
1    张三  李四                  （“张三 85 ， 李四 85 ”）
1    李四  张三                  （“李四 85 ， 张三 85 ”）
1    李四  王五                  （“李四 85 ， 王五 85 ”）

cao627

@密码很长

1    李四  王五                  （“李四 85 ， 王五 85 ”）

这一行又有什么玄机?
既然李四和王五有三个分数相同.           "4    李四  王五                  （“李四 85 ， 王五 85 ”；“李四 85 ，张三 85 ”；“李四 90 ，王五 90 ” ；“李四 60，王五 60”）"  

没办法理解!

yinyuemi

1. awk '{a[$1]=a[$1]" "$2;b[$2]=b[$2]" "$1}END{for(i in a){for(j=1;j<=split(a[i],c," ");j++){for(k=1;k<=split(b[c[j]],d," ");k++){if(i!=d[k])e[i" "d[k]]++}}};for(i in e)print e[i],i|"sort -nr"}'
   

复制代码

密码很长

回复 5# yinyuemi


非常感谢！我描述的问题不够准确，但大侠理解的完全正确！高手！有些看不明白，能解释一下就好了。

根据大侠的脚本，执行结果如下：
3 王五 李四
3 李四 王五
1 赵六 王五
1 赵六 李四
1 王五 赵六
1 王五 张三
1 李四 赵六
1 李四 张三
1 张三 王五
1 张三 李四


   

cao627

1. awk '{b[$2]=b[$2]" "$1}END{for(i in b)print b[i]}' file | awk '{for(i=1;i<=NF;i++)for(j=i+1;j<=NF;j++)a[$i" "$j]++}END{for (i in a)print a[i],i}'

复制代码

cao627

1. awk '{split(b[$2],c," ");for(i in c){if(c[i]==$1)break;a[c[i]" "$1]++};b[$2]=b[$2]" "$1}END{for(i in a)print a[i],i}' file

复制代码

cao627

1. $cat file
   
2. 张三 85
   
3. 李四 85
   
4. 李四 90
   
5. 张三 90
   
6. 
   
7. $awk '{split(b[$2],c," ");for(i in c){if(c[i]==$1)break;a[c[i]" "$1]++};b[$2]=b[$2]" "$1}END{for(i in a)print a[i],i}' file
   
8. 1 李四 张三
   
9. 1 张三 李四
   
10. 
    
11. $awk '{split(b[$2],c," ");for(i in c){if(c[i]==$1)break;a[c[i]" "$1]++;a[$1" "c[i]]++};b[$2]=b[$2]" "$1}END{for(i in a)print a[i],i}' file
    
12. 2 李四 张三
    
13. 2 张三 李四
    
14. 
    

复制代码

cao627

1. $cat file
   
2. 李四 85
   
3. 张三 85
   
4. 李四 90
   
5. 张三 90
   
6. 李四 85  #李四有两门85,算有三门分数和张三相同?
   
7. 
   
8. $awk '{split(b[$2],c," ");for(i in c){if(c[i]==$1)break;a[c[i]" "$1]++;a[$1" "c[i]]++};b[$2]=b[$2]" "$1}END{for(i in a)print a[i],i}' file
   
9. 2 李四 张三
   
10. 2 张三 李四
    
11. 
    
12. $awk '{split(b[$2],c," ");for(i in c){if(c[i]==$1)continue;a[c[i]" "$1]++;a[$1" "c[i]]++};b[$2]=b[$2]" "$1}END{for(i in a)print a[i],i}' file
    
13. 3 李四 张三
    
14. 3 张三 李四
    
15. 
    

复制代码