shell排序

blackold

回复 57# expert1


    稍为修改了一下：

1. awk '{for(i=1;i<=NF;i++){t=$i;sub(/.*:/,"",t);a[t,i]=$i;b[t,i]};n=asorti(b);for(i=1;i<=n;i++)printf a[b[i]]" ";print "";delete a;delete b}' urfile

复制代码

blackold

回复 60# expert1


    如果说有的话，就是awk进行的是字符串比较，而不是数值比较，会出现：
"10.05" < "6.01"的情况。

blackold

回复 62# expert1


    方法肯定有的。

1. awk '{for(i=1;i<=NF;i++){t=$i;sub(/.*:/,"",t);a[t","i]=$i;b[t","i]=t};n=asort(b);for(i=1;i<=n;i++)for(j=1;j<=NF;j++) if(b[i]","j in a) {printf a[b[i]","j]" ";delete a[b[i]","j]}print "";delete a;delete b}' urfile

复制代码

这个可以按数值排序。只是排序，并没有求和，要求和，稍修改即可。

blackold

回复 64# expert1


    我晕，就是累加求和啊。

1. $ awk '{s=0;for(i=1;i<=NF;i++){t=$i;sub(/.*:/,"",t);a[t","i]=$i;b[t","i]=t};n=asort(b);for(i=1;i<=n;i++)for(j=1;j<=NF;j++){t=b[i]","j;if(t in a) {s+=b[i];if(s<0.5)printf a[t]" ";delete a[t]}}print "";delete a;delete b}' urfile

复制代码

里面没有加break，自己优化吧。

blackold

这种问题还是用perl比较好，写个超难看的
scr.pl

#! /bin/perl

use warnings;
use strict;

while (<>) {
    chomp;
    my @field = split;
    my $s=0;
    @field = sort { (substr $a, (index $a,":")+1) <=> (substr $b, (index $b,":")+1) } @field;
    foreach (@field) {
        $s += substr $_, (index $_,":")+1;
        if($s<0.5) {
            print $_ . " ";
        } else {
            last;
        }
    }
    print "\n";
}

$ perl scr.pl urfile

blackold

回复 68# expert1


    看你了，条件满足即退出，没有必要再循环下去了，做无用功。

blackold

回复 72# expert1


    呵呵，你也会白话？

   print ""就系换行。
   delete a 删除数组。

blackold

回复 78# starwing83


    我们理解错了？
对于这组数据：
a:0.13 b:0.23 c:0.05 d:0.45 e:0.07
p:0.13 q:0.20 r:0.13 s:0.33 t:0.23
h:0.08 g:0.11 r:0.05 y:0.45 s:0.24
g:0.01 q:0.02 r:0.03 s:0.04 t:0.05
g:0.21 q:0.22 r:0.03 s:0.04 t:0.05

按照你的理解，正确答案是什么？

blackold

回复 80# starwing83


    人家要求K最大。

blackold

这些都没学过。惭愧，要补课了。