+ -
当前位置:首页 → 问答吧 → 如何以最快的速度获取数组排序的下标

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

时间:2010-12-21

来源:互联网

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

本来想用hash实现的,但是好像很慢啊?

作者: nfwolf   发布时间: 2010-12-21



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

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




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

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

作者: jason680   发布时间: 2010-12-21

  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";
复制代码

作者: 黑色阳光_cu   发布时间: 2010-12-21