高级排序

kk861123

被同事问起一个排序，感觉蛮有意思的，大家可以试试
源数据

1. my @org = qw( acd 4 def 123 abc );

复制代码

排序结果

1. my @new = qw( 4 123 abc acd def );

复制代码

规则：
1> 数字一定在字符串前；
2> 数字之间按照数字排序；
3> 字符串之间按ASCII码排序。

只是一个红薯

sort就是这个机制吧

laputa73

4abc 和 123d 按字符排?
那样的话就是把数字和字符分开,分别排再拼起来就ok了

kk861123

回复 2# 只是一个红薯


    不是的，sort是按照ASCII码排序。

kk861123

回复 3# laputa73


    额，我没有给这种数据，你想加可以加...可以按照字符排序。另外，你说的分开排序再合并的方法是可以的。我只是想看看有没有其他方法，谢谢！

shs867

自己写一个比较函数就可以了

1. my @org = qw/acd 4 def 123 abc/;
   
2. my @new = sort {comp($a, $b)}  @org;
   
3. 
   
4. 
   
5. sub comp {
   
6.     my $a = shift;
   
7.     my $b = shift;
   
8. 
   
9.     if($a =~ /^\d+$/ && $b =~ /^\d+$/) {
   
10.         return $a <=> $b;
    
11.     }
    
12.     elsif($a =~ /^\d+$/ && !($b =~ /^\d+$/)) {
    
13.         return -1;
    
14.     }
    
15.     elsif(!($a =~ /^\d+$/) && $b =~ /^\d+$/) {
    
16.         return 1;
    
17.     }
    
18.     else {
    
19.         return $a cmp $b;
    
20.     }
    
21. }
    

复制代码

kk861123

回复 6# shs867


    恩，不错，这个方法也可行，谢谢！

yinyuemi

回复 1# kk861123

1. @res = ((sort{$a <=> $b} grep{/^\d+$/}@org),(sort{$a cmp $b} grep {/^\D+$/}@org));

复制代码

kk861123

回复 8# yinyuemi


    简洁！理论上和2L的差不多。我是用施瓦茨变换来做的：

1. my @new = map { $_->[0] == 0 ? $_->[1] : $_->[2] }
   
2.                 # number | char          number | number          char | char
   
3.          sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or $a->[2] cmp $b->[2] }
   
4.          map  { /^\d+$/ ? [ 0, $_, '' ] : [ 1, 0, $_ ] } @org;

复制代码

mcshell

1. my @org = qw( 6 acd 4 def abc);
   
2. my @new;
   
3. map{ $_->[0]=~/(^\d+$)/?unshift@new,$1:push @new,$_->[0]}sort{
   
4.    $b->[1]->[0] <=> $a->[1]->[0]
   
5.                          }map{[$_,[/(\d+)/?$1:0]]}sort @org;

复制代码

回复 1# kk861123
思路差不多{:3_195:}   施瓦茨转化。。