中秋送题目^_^

jason680

@blackold @damcool

Would you like this to sort it by special key with log for asorti function in awk

$ awk '{d=$0;k="";for(n=1;n<=NF;n++){if($n=="-")x=9999;else{b=7500;if($n>0){x=log($n)+7500}else{x=2500-log(-$n)};if($n=="0")x=5000};k=sprintf("%s%019.15f,",k,x)}a[k]=a[k]d"\n"}END{t=asorti(a,s);for(n=1;n<=t;n++)printf a[s[n]]}' FILE

damcool

ly5066113 发表于 2014-09-09 10:19
回复 57# blackold

@damcool

这是本贴中最棒的代码：ly5066113 的

1. sort -gr file | awk 'BEGIN{n=1}{if($n=="-"&&$(n+1)!="-")n++;a[n]=a[n]?$0"\n"a[n]:$0}END{for(i=1;i<=n;i++)printf a[i]}'

复制代码

damcool

jason680 发表于 2014-09-10 11:36
@blackold @damcool

Would you like this to sort it by special key with log ...

Your stuck in the wrong direction from the starting. Give it up and find a new way instead!

blackold

回复 71# jason680


    结果和其它几位的答案一样，有个小问题——重排。

    这要看原始需求了。

jason680

@blackold @damcool

it seems no issue and just for your reference

$ awk '{d=$0;k="";for(n=1;n<=NF;n++){if($n=="-")x=9999;else{b=7500;if($n>0){x=log($n)+7500}else{x=2500-log(-$n)};if($n=="0")x=5000};k=sprintf("%s%019.15f,",k,x)}a[k]=a[k]d"\n"}END{t=asorti(a,s);for(n=1;n<=t;n++)printf a[s[n]]}' file
-55         -        -        2
-55         -        -        3
-45         -        -        2
-5         -        -        3
-1        15         -        -
-5.3400000000e-10         -        -        0
-5.3500000000e-11         -        -        0
-5.3400000000e-11         -        -        0
-5.3400000000e-11         -        -        0
-5.3400000000e-12         -        -        0
0        15         -        -
5.3400000000e-12         -        -        0
5.3400000000e-11         -        -        0
5.3400000000e-11         -        -        0
5.3500000000e-11         -        -        0
5.3400000000e-10         -        -        0
1        15         -        -
33         -        -        -
34         -        4         -
35         -        -        3
36         -        54         3
37         13         -        0
38         -        -        -
39         -        43         0
40         12         -        0
41         -        -        2
42         -        -        2
43         -        -        3
46         -        0         3
47         -        3         0
48         -        0         23
49         -        3         0
50         -        0         -
5.3400000000e+11         -        -        0
-        11         -        0
-        12         -        0
-        13         -        -
-        14         -        -
-        15         -        -
-        -        22         0
-        -        23         0
-        -        24         0
-        -        25         0
-        -        -        2
-        -        -        4
-        -        -        4
-        -        -        5

blackold

回复 75# jason680

    37         1         -        0
    37         13         -        0

不重排时结果为:

37         13         -        0
37         1         -        0

jason680

回复 76# blackold

No any issue here

$ awk --version
GNU Awk 3.1.8
...
Note: OS: ubuntu 12.04 LTS


$ cat F
37                1                -         0
37                13                -         0
37                113                -         0
37                -1                -         0
37                -31                -         0
36                1                -         0
38                1                -         0
13                1                -         0
1                1                -         0
37                1.0                -         0
37                1.1                -         0
37                1.1e-1                -         0
37                1.1e-13                -         0
37                1.1e-12                -         0
37                1.1e-11                -         0
37                -1.1e-1                -         0
37                -1.1e-13                -         0
37                -1.0                -         0

$ awk '{d=$0;k="";for(n=1;n<=NF;n++){if($n=="-")x=9999;else{b=7500;if($n>0){x=log($n)+7500}else{x=2500-log(-$n)};if($n=="0")x=5000};k=sprintf("%s%019.15f,",k,x)}a[k]=a[k]d"\n"}END{t=asorti(a,s);for(n=1;n<=t;n++)printf a[s[n]]}' F

1                1                -         0
13                1                -         0
36                1                -         0
37                -31                -         0
37                -1                -         0
37                -1.0                -         0
37                -1.1e-1                -         0
37                -1.1e-13                -         0
37                1.1e-13                -         0
37                1.1e-12                -         0
37                1.1e-11                -         0
37                1.1e-1                -         0
37                1                -         0
37                1.0                -         0
37                1.1                -         0
37                13                -         0
37                113                -         0
38                1                -         0

   

damcool

jason680 发表于 2014-09-10 13:26
@blackold @damcool

it seems no issue and just for your reference

No issue? Please find the sample data and result from below. I would say idea is good, but the implementation is terrible.

1. 10000   -       10001   -       1
   
2. 5.3400000000e+19999     -       -       -       0
   
3. 0       10      -       -       -
   
4. -       -       100     -       100
   
5. -       -10000  -       -       -
   
6. -       999     -       10      -
   
7. -       0       -       -       -
   
8. -       -       -       -       -

复制代码

1. 5.3400000000e+19999     -       -       -       0
   
2. 0       10      -       -       -
   
3. 10000   -       10001   -       1
   
4. -       -10000  -       -       -
   
5. -       0       -       -       -
   
6. -       999     -       10      -
   
7. -       -       100     -       100
   
8. -       -       -       -       -

复制代码

jason680

回复 78# damcool

maybe it's your issue when you use none-normal number in normal question
Note: sort also have some issue when you didn't define the range of number


IEEE二進位浮點數算術標準（IEEE 754）
http://zh.wikipedia.org/wiki/IEEE_754


$ echo 5.3400000000e+19999 | awk '{print $1}'
5.3400000000e+19999

$ echo 5.3400000000e+19999 | awk '{print $1+0}'
inf

$ echo 5.3400000000e+308 | awk '{print $1+0}'
inf

$ echo 5.3400000000e+307 | awk '{print $1+0}'
53399999999999996834102215886847073375442192858428021737048535051625972581433920698886860960863720196377732197475988075372789144436945748499132524731853906391056088069083166315551794351539218676171780989529694725891652652655135617391477042922865451526518735389409861552838517818551646040134617938993000480768

$ cat s
10000   -       10001   -       1
5.3400000000e+307     -       -       -       0
0       10      -       -       -
-       -       100     -       100
-       -10000  -       -       -
-       999     -       10      -
-       0       -       -       -
-       -       -       -       -

$ awk '{d=$0;k="";for(n=1;n<=NF;n++){if($n=="-")x=9999;else{b=7500;if($n>0){x=log($n)+7500}else{x=2500-log(-$n)};if($n=="0")x=5000};k=sprintf("%s%019.15f,",k,x)}a[k]=a[k]d"\n"}END{t=asorti(a,s);for(n=1;n<=t;n++)printf a[s[n]]}' s
0       10      -       -       -
10000   -       10001   -       1
5.3400000000e+307     -       -       -       0
-       -10000  -       -       -
-       0       -       -       -
-       999     -       10      -
-       -       100     -       100
-       -       -       -       -

   

blackold

回复 77# jason680

7         13         -        0
37         1         -        0

重排后:
   

    37         1         -        0
    37         13         -        0

不重排时为:

37         13         -        0
37         1         -        0

这要看具体需求了。

你的结果是重排了。