對數(shù)字進行排序求秩

wx2wx

請問，假設(shè)我有一組數(shù)字：my @data=(3,6,5,2,5,3,4);按照從大到小的順序應(yīng)該是：@sort=sort {$b<=>$a} @data;即（6 5 5 4 3 3 2）,對應(yīng)的秩應(yīng)該是（1，2，2，4，5，5，7），請問如何將其對應(yīng)回原來的順序？也就是：(5，1，2，7，2，5，4)，謝謝！

yinyuemi

回復(fù) 1# wx2wx


    軼是什么？

jason680

$ perl -e '{@d=(3,6,5,2,5,3,4);@s=sort{$b<=>$a}@d;for(@d){push @{$h{$_}},$c++};for(@s){$p=shift(@{$h{$_}});push @t,"$d[$p]($p)"};print "@t\n"}'
6(1) 5(2) 5(4) 4(6) 3(0) 3(5) 2(3)

yinyuemi

回復(fù) 1# wx2wx

1. perl -e 'my @data=(3,6,5,2,5,3,4); map{$n++;$hash{$_} ||= $n}sort{$b <=> $a} @data;print join " ",map{$hash{$_}}@data'
   
2. 5 1 2 7 2 5 4
   

復(fù)制代碼

wx2wx

回復(fù) 2# yinyuemi


    其實就是由大到小排序后的順序O(∩_∩)O~

jason680

$ perl -e '@d=(3,6,5,2,5,3,4);%h=map{$_,@d-$c++}sort{$a<=>$b}@d;print "@h{@d}\n"'
5 1 2 7 2 5 4

wx2wx

感謝各位大神，這是第一次在這里發(fā)帖，以后請多多指教�。�！

sunzhiguolu

hash 的魔力被發(fā)揮的淋漓盡致啊, 向兩位大神級人物致敬!!!

104359176

你想記住順序，以便恢復(fù)？要是這樣，用備份排序好了，還是想計算排序移動的次數(shù)，來計算改動幅度？

wx2wx

回復(fù) 9# 104359176


    額。。應(yīng)該就是需要記住次序吧