对数字进行排序求秩

wx2wx

请问，假设我有一组数字：my @data=(3,6,5,2,5,3,4);按照从大到小的顺序应该是：@sort=sort {$b<=>$a} @data;即（6 5 5 4 3 3 2）,对应的秩应该是（1，2，2，4，5，5，7），请问如何将其对应回原来的顺序？也就是：(5，1，2，7，2，5，4)，谢谢！

yinyuemi

回复 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

回复 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
   

复制代码

wx2wx

回复 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

感谢各位大神，这是第一次在这里发帖，以后请多多指教！！！

sunzhiguolu

hash 的魔力被发挥的淋漓尽致啊, 向两位大神级人物致敬!!!

104359176

你想记住顺序，以便恢复？要是这样，用备份排序好了，还是想计算排序移动的次数，来计算改动幅度？

wx2wx

回复 9# 104359176


    额。。应该就是需要记住次序吧