如何以最快的速度获取数组排序的下标

nfwolf

我有个数组，@Test = (30 40 20 21 19)
如何以最快的速度找到按照大小排序后，在@Test中的下标

本来想用hash实现的，但是好像很慢啊？

jason680

我有个数组，@Test = (30 40 20 21 19)
如何以最快的速度找到按照大小排序后，在@Test中的下标

本来想用 ...
nfwolf 发表于 2010-12-21 10:38

说说你真正的问题吧!!!

这么小的数组没有效率问题....

黑色阳光_cu

1. my @Test = qw(30 40 20 21 19);
   
2. my $n = 0;
   
3. my @pos = map { $_->[1] } sort { $a->[0] <=> $b->[0] } map { [$_, $n++] } @Test;
   
4. warn "@pos";

复制代码