免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 2834 | 回复: 16

高级排序 [复制链接]

论坛徽章:
0
发表于 2013-04-22 13:32 |显示全部楼层
被同事问起一个排序,感觉蛮有意思的,大家可以试试
源数据
  1. my @org = qw( acd 4 def 123 abc );
复制代码
排序结果
  1. my @new = qw( 4 123 abc acd def );
复制代码
规则:
1> 数字一定在字符串前;
2> 数字之间按照数字排序;
3> 字符串之间按ASCII码排序。

论坛徽章:
6
卯兔
日期:2013-11-26 14:52:02丑牛
日期:2014-02-19 18:01:25卯兔
日期:2014-05-20 20:34:06白羊座
日期:2014-05-23 13:39:232015亚冠之大阪钢巴
日期:2015-08-07 20:57:582015亚冠之大阪钢巴
日期:2015-09-02 14:09:09
发表于 2013-04-22 13:48 |显示全部楼层
sort就是这个机制吧

论坛徽章:
42
19周年集字徽章-周
日期:2019-10-14 14:35:31平安夜徽章
日期:2015-12-26 00:06:30数据库技术版块每日发帖之星
日期:2015-12-01 06:20:002015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34IT运维版块每日发帖之星
日期:2016-01-27 06:20:0015-16赛季CBA联赛之新疆
日期:2016-06-07 14:10:01
发表于 2013-04-22 13:49 |显示全部楼层
4abc 和 123d 按字符排?
那样的话就是把数字和字符分开,分别排再拼起来就ok了

论坛徽章:
0
发表于 2013-04-22 14:04 |显示全部楼层
回复 2# 只是一个红薯


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

论坛徽章:
0
发表于 2013-04-22 14:06 |显示全部楼层
回复 3# laputa73


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

论坛徽章:
0
发表于 2013-04-22 14:54 |显示全部楼层
自己写一个比较函数就可以了
  1. my @org = qw/acd 4 def 123 abc/;
  2. my @new = sort {comp($a, $b)}  @org;


  3. sub comp {
  4.     my $a = shift;
  5.     my $b = shift;

  6.     if($a =~ /^\d+$/ && $b =~ /^\d+$/) {
  7.         return $a <=> $b;
  8.     }
  9.     elsif($a =~ /^\d+$/ && !($b =~ /^\d+$/)) {
  10.         return -1;
  11.     }
  12.     elsif(!($a =~ /^\d+$/) && $b =~ /^\d+$/) {
  13.         return 1;
  14.     }
  15.     else {
  16.         return $a cmp $b;
  17.     }
  18. }
复制代码

论坛徽章:
0
发表于 2013-04-22 15:22 |显示全部楼层
回复 6# shs867


    恩,不错,这个方法也可行,谢谢!

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
发表于 2013-04-22 15:48 |显示全部楼层
回复 1# kk861123
  1. @res = ((sort{$a <=> $b} grep{/^\d+$/}@org),(sort{$a cmp $b} grep {/^\D+$/}@org));
复制代码

论坛徽章:
0
发表于 2013-04-22 15:54 |显示全部楼层
回复 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;
复制代码

论坛徽章:
3
CU十二周年纪念徽章
日期:2013-10-24 15:41:34子鼠
日期:2013-12-14 14:57:19射手座
日期:2014-04-25 21:23:23
发表于 2013-04-22 19:28 |显示全部楼层
  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:}   施瓦茨转化。。


   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。




----------------------------------------

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP