高級(jí)排序

kk861123

被同事問起一個(gè)排序，感覺蠻有意思的，大家可以試試
源數(shù)據(jù)

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

復(fù)制代碼

排序結(jié)果

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

復(fù)制代碼

規(guī)則：
1> 數(shù)字一定在字符串前；
2> 數(shù)字之間按照數(shù)字排序；
3> 字符串之間按ASCII碼排序。

只是一個(gè)紅薯

sort就是這個(gè)機(jī)制吧

laputa73

4abc 和 123d 按字符排?
那樣的話就是把數(shù)字和字符分開,分別排再拼起來就ok了

kk861123

回復(fù) 2# 只是一個(gè)紅薯


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

kk861123

回復(fù) 3# laputa73


    額，我沒有給這種數(shù)據(jù)，你想加可以加...可以按照字符排序。另外，你說的分開排序再合并的方法是可以的。我只是想看看有沒有其他方法，謝謝！

shs867

自己寫一個(gè)比較函數(shù)就可以了

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. }
    

復(fù)制代碼

kk861123

回復(fù) 6# shs867


    恩，不錯(cuò)，這個(gè)方法也可行，謝謝！

yinyuemi

回復(fù) 1# kk861123

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

復(fù)制代碼

kk861123

回復(fù) 8# yinyuemi


    簡(jiǎn)潔！理論上和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;

復(fù)制代碼

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;

復(fù)制代碼

回復(fù) 1# kk861123
思路差不多{:3_195:}   施瓦茨轉(zhuǎn)化。。