看似简单的问题，求最简方法！请大侠们解答！

ggglw

好上面的讨论都很精彩，对我都有帮助。

zhlong8

回复  zhlong8


    不过有几个致命的问题 就是数据不能有重复 而且不能太多
guap514 发表于 2011-06-21 11:40

    还有个 bug rand 可能为 0

guap514

回复 12# zhlong8


    查了下  rand还真有可能等于0 以前没注意
不过对顺序应该没有影响吧？

zhlong8

回复  zhlong8


    查了下  rand还真有可能等于0 以前没注意
不过对顺序应该没有影响吧？
guap514 发表于 2011-06-21 13:38

    这个是由 sort 决定啊，两个值一样哪个在前哪个在后

jason680

这个是由 sort 决定啊，两个值一样哪个在前哪个在后
zhlong8 发表于 2011-06-21 13:55

rand()为0,是不会有问题的....
当$a,$b值都一样...sort不会改变顺序的...
print map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, /=/ ? ++$i : $i ] } <DATA>;   
没有rand()时,就是原来的顺序(没变)...

zhlong8

rand()为0,是不会有问题的....
当$a,$b值都一样...sort不会改变顺序的...
print map { $_->[0] } s ...
jason680 发表于 2011-06-21 15:50

    当前的 sort 实现肯定是对的，这只是个概念上的 bug，因为完全可以写出一个不满足条件的 sort

jason680

当前的 sort 实现肯定是对的，这只是个概念上的 bug，因为完全可以写出一个不满足条件的 sort :m ...
zhlong8 发表于 2011-06-21 16:00

不解...可否详述之...
...因为完全可以写出一个不满足条件的 sort

以下不含+rand(),相当rand()为0,则结果完全没变化...
print map { $_->[1].",". $_->[0]   } sort { $a->[1] <=> $b->[1] } map { [ $_, /^=/ ? ++$i : $i ] } <DATA>;

__DATA__
1jlsdjl
1dsflepdf
1d=fj
1dfj=
1ipwier
======   dfg
2fds
2fds
2djfl
2rewuoi
======   qqw
3dsfj
3wruo
======   eurew

$ perl t.pl
,1jlsdjl
,1dsflepdf
,1d=fj
,1dfj=
,1ipwier
1,======   dfg
1,2fds
1,2fds
1,2djfl
1,2rewuoi
2,======   qqw
2,3dsfj
2,3wruo
3,======   eurew

zhlong8

不解...可否详述之...
...因为完全可以写出一个不满足条件的 sort

以下不含+rand(),相当rand()为0, ...
jason680 发表于 2011-06-21 16:10

    我的意思是并非所有排序算法都保证相同的值保持原来的相对位置

zhlong8

那个叫稳定度，http://zh.wikipedia.org/wiki/%E6%8E%92%E5%BA%8F%E7%AE%97%E6%B3%95

比如 5.6 和以前默认的是快速排序算法

1. use sort '_quicksort';
   
2. use Data::Dumper;
   
3. 
   
4. my @a;
   
5. 
   
6. for ('a' .. 'z') {
   
7.     push @a, [int(rand 5), $_];
   
8. }
   
9. 
   
10. say Dumper [sort @a]

复制代码

相同数字对应的后面字母却不一定有序

jason680

那个叫稳定度，

比如 5.6 和以前默认的是快速排序算法相同数字对应的后面字母却不一定有序
zhlong8 发表于 2011-06-21 16:26

感谢您的回应....让我更了解排序"稳定度"问题....

最后所提例子....不是"稳定度"问题,也不是"quicksort"问题...
它排到array的reference了...不是random的"值"

for ('a' .. 'z') {
    push @a, [int(rand 5), $_];
    print $a[$#a],",@{$a[$#a]}[0,1]\n";
}

@sorted = sort @a;
foreach(@sorted){
  print "$_,", $_->[0],",",$_->[1],"\n";
}

rand 5结果
ARRAY(0xa0c96f8 ),0 a
ARRAY(0xa0ea0e0),0 b
ARRAY(0xa0e9f10),2 c
ARRAY(0xa0e9eb0),1 d
ARRAY(0xa0e9b20),3 e
ARRAY(0xa0f80d0),2 f
....

排序结果(它排到array的reference了...不是rand的"值")
ARRAY(0xa0c96f8),0,a
ARRAY(0xa0e9b20),3,e
ARRAY(0xa0e9eb0),1,d
ARRAY(0xa0e9f10),2,c
ARRAY(0xa0ea0e0),0,b
ARRAY(0xa0f80d0),2,f
...