忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT 视频 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
1234
最近访问板块 发新帖
楼主: sunzhiguolu

小学一年级数学题 - 系列-3 [复制链接]

论坛徽章:
22
2015年亚洲杯之科威特
日期:2015-04-18 15:27:07每日论坛发贴之星
日期:2016-01-27 06:20:0015-16赛季CBA联赛之广夏
日期:2016-03-28 16:20:51程序设计版块每日发帖之星
日期:2016-04-09 06:20:00CU十四周年纪念徽章
日期:2016-05-03 09:35:1415-16赛季CBA联赛之天津
日期:2016-11-18 08:31:3115-16赛季CBA联赛之山西
日期:2016-12-07 16:29:5315-16赛季CBA联赛之八一
日期:2017-01-10 11:34:3415-16赛季CBA联赛之吉林
日期:2017-03-30 22:51:1915-16赛季CBA联赛之广夏
日期:2017-04-13 20:51:52程序设计版块每日发帖之星
日期:2016-01-27 06:20:00每日论坛发贴之星
日期:2015-12-28 06:20:00
发表于 2017-06-29 20:14 来自手机 |显示全部楼层
赞            

论坛徽章:
302
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-06-29 21:58 |显示全部楼层
回复 31# Windows19
谢谢诸位大神,包括楼上打酱油的 。说过的话一定会兑现,等我消化消化。。。

论坛徽章:
112
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2017-07-02 20:15 |显示全部楼层

论坛徽章:
0
发表于 2017-07-10 21:20 |显示全部楼层
回复 14# 523066680

Algorithm:ermute版本 <= 0.12的话在Perl 5.24及以上是build不出来的。这是因为Perl 5.24有一个称为Context rework的工作,提高了函数调用的速度,但是一些原来非公开的内部API被改了,当时造成了一批XS package break。

我前两天因为单位里工作的原因,刚好把Algorithm:ermute修了一下,现在最新的版本是0.14,你可以再试试。

评分

参与人数 1信誉积分 +5 收起 理由
523066680 + 5 很给力!

查看全部评分

论坛徽章:
5
子鼠
日期:2014-10-11 16:46:482015亚冠之萨济拖拉机
日期:2015-05-22 11:38:53黑曼巴
日期:2016-07-19 15:03:1115-16赛季CBA联赛之四川
日期:2017-05-16 16:38:5515-16赛季CBA联赛之天津
日期:2017-06-29 10:34:43
发表于 2017-07-11 10:05 |显示全部楼层
回复 34# zhouzhen1

厉害了。高性能。

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-07-24 01:20 |显示全部楼层
v3:
  1. real        0m0.030s
复制代码

  1. #!/usr/bin/perl
  2. # version 26, subversion 0 (v5.26.0)
  3. use 5.010;
  4. explore();

  5. # ______________________ SUB ______________________

  6. sub explore { E_(0) }

  7. sub E_ {
  8.     my $n = shift;
  9.     state $b   = [ (0) x 4 ];
  10.     state $has = [ (0) x 10 ];
  11.     state $in  = [ [ 0, 1 ], [ 2, 3 ], [ 0, 2 ], [ 1, 3 ], [ 0, 3 ] ];

  12.     if ( $n == 3 ) {
  13.         # b3 = 15 - (15 - b0 - b1) - (15 - b0 - b2)
  14.         my $b3 = $b->[0] + $b->[0] + $b->[1] + $b->[2] - 15;
  15.         return if $b3 < 1 or $b3 > 9;
  16.         $b->[3] = $b3;
  17.         my ( @test, @x ) = (0) x 10;
  18.         $test[$_]++ and return for @$b;

  19.         for my $i (@$in) {
  20.             my $it = $b->[ $i->[0] ] + $b->[ $i->[1] ];
  21.             return if $it < 6 or $it > 14;
  22.             $it = 15 - $it;
  23.             return if $test[$it]++;
  24.             push @x, $it;
  25.         }

  26.         say join ' ', @$b[ 0, 1 ], $x[0];
  27.         say join ' ', @$b[ 2, 3 ], $x[1];
  28.         say join ' ', @x[ 2, 3, 4 ];
  29.         say '-----';
  30.         return;
  31.     }

  32.     for my $it ( 1 .. 9 ) {
  33.         next if $has->[$it];
  34.         $has->[$it]++;
  35.         $b->[$n] = $it;
  36.         E_( $n + 1 );
  37.         $has->[$it]--;
  38.     }
  39. }

  40. __DATA__
  41. $_
复制代码

论坛徽章:
112
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2017-07-24 12:54 |显示全部楼层
回复 32# sunzhiguolu

>> ...说过的话一定会兑现,等我消化消化。。。

消化消化
帖子都快消失,还不出来说说话...
您需要登录后才可以回帖 登录 | 注册

本版积分规则

SACC2017购票6.8折优惠进行时

2017中国系统架构师大会(SACC2017)将于10月19-21日在北京新云南皇冠假日酒店震撼来袭。今年,大会以“云智未来”为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置2大主会场,18个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100余位技术专家及行业领袖来分享他们的经验;并将吸引4000+人次的系统运维、架构师及IT决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年8月2日前

活动链接>>
  

北京皓辰网域网络信息技术有限公司. 版权所有 京ICP证:060528号 北京市公安局海淀分局网监中心备案编号:1101082001
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP