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

ChinaUnix.net

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

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

论坛徽章:
307
程序设计版块每周发帖之星
日期: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-24 23:11 |显示全部楼层
本帖最后由 sunzhiguolu 于 2017-06-25 15:25 编辑



数字 1-9 的范围, 使横,竖,对角的数值分别为 15.
列举所有的可能性,哪位大神会算算术 我实在是不会加减法啊。

论坛徽章:
115
技术图书徽章
日期: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-06-24 23:34 |显示全部楼层
回复 1# sunzhiguolu

# array [0, 1, 2, 3, 4, 5, 6, 7, 8]

# [0, 1, 2]
# [3, 4, 5]
# [6, 7, 8]

# [0]+[1]+[2] = [3]+[4]+[5] = [6]+[7]+[8] = 15
# [0]+[3]+[6] = [1]+[4]+[7] = [2]+[5]+[8] = 15
# [0]+[4]+[8] = [2]+[4]+[6] = 15

论坛徽章:
307
程序设计版块每周发帖之星
日期: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-24 23:52 |显示全部楼层
本帖最后由 sunzhiguolu 于 2017-06-24 23:54 编辑

回复 2# jason680
大神,难道是通过看图片进行求解?
在真实环境中 数值不会像图片中那样摆放的。
很可能就是一组乱序的数字而已,但先决条件是 1-9 个数字,且不会重复。

之所以放置这张图片,是为了让大家更直观的进行观察。而不是照图写答案啊。。。

论坛徽章:
307
程序设计版块每周发帖之星
日期: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-24 23:59 |显示全部楼层
另外,即使通过观察 利用索引将相关的数组元素 进行求解
进行求解失败后,如何以优雅的方式 将各个元素的数值进行调换?

论坛徽章:
115
技术图书徽章
日期: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-06-25 00:03 |显示全部楼层
本帖最后由 jason680 于 2017-06-25 00:31 编辑

回复 3# sunzhiguolu

穷举法

1数组
@array

2. 分别放入1〜9(所有组合)

3. 检查
$array[0] + $array[1] + $array[2] = 15
....

4. 合格/正碓 则打印

START => 1 => 2 => 3 => 4 => 2 => 3 => 4 => .... 2 => 3 => 4 => END


穷举法 优化 改良...

2跟3混合
填入[0,1,2]立即检查[0] + [1] + [2]
填入[0,1,2,3,4,5]再检查[3] + [4] + [5]
填入[0,1,2,3,4,5,6]再检查[0] + [3] + [6],[2] + [4] + [6]
填入[0,1,2,3,4,5,6,7]再检查[1] + [4] + [7]
填入[0,1,2,3,4,5,6,8]不用检查(要检查也可以)


穷举法 再优化 改良...
填入[0,1]立即检查[0] + [1] > 5 , [2] = 15 - [0] + [1]
....

穷举法 再再优化 改良...
....

论坛徽章:
307
程序设计版块每周发帖之星
日期: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-25 00:54 |显示全部楼层
回复 5# jason680
大神不常说怎想怎编程吗? 用代码远比用文字更说明问题。
如果已经有求解思路的话。。。

论坛徽章:
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-06-25 04:59 |显示全部楼层
8:
  1. 2 7 6
  2. 9 5 1
  3. 4 3 8
  4. -----
  5. 2 9 4
  6. 7 5 3
  7. 6 1 8
  8. -----
  9. 4 3 8
  10. 9 5 1
  11. 2 7 6
  12. -----
  13. 4 9 2
  14. 3 5 7
  15. 8 1 6
  16. -----
  17. 6 1 8
  18. 7 5 3
  19. 2 9 4
  20. -----
  21. 6 7 2
  22. 1 5 9
  23. 8 3 4
  24. -----
  25. 8 1 6
  26. 3 5 7
  27. 4 9 2
  28. -----
  29. 8 3 4
  30. 1 5 9
  31. 6 7 2
  32. -----
复制代码


biru:
  1. #!/usr/bin/perl

  2. explore();   

  3. # ______________________ SUB ______________________

  4. sub explore { E_( [ 1 .. 9 ], [] ) }
  5. use List::Util qw[sum];

  6. sub E_ {
  7.     my ( $a, $b ) = @_;
  8.     if    ( @$b == 3 ) { sum( @$b[ 0, 1, 2 ] ) != 15 and return }
  9.     elsif ( @$b == 6 ) { sum( @$b[ 3, 4, 5 ] ) != 15 and return }
  10.     elsif ( @$b == 7 ) { sum( @$b[ 0, 3, 6 ] ) != 15
  11.                        || sum( @$b[ 2, 4, 6 ] ) != 15 and return }
  12.     elsif ( @$b == 8 ) { sum( @$b[ 1, 4, 7 ] ) != 15 and return }
  13.     elsif ( @$b == 9 ) { sum( @$b[ 0, 4, 8 ] ) != 15 and return;
  14.         print "@$b[0,1,2]\n@$b[3,4,5]\n@$b[6,7,8]\n";
  15.         print "-----\n";
  16.     }

  17.     E_( [ @$a[ 0 .. $_ - 1, $_ + 1 .. $#$a ] ], [ @$b, $a->[$_] ] )
  18.         for 0 .. $#$a;
  19. }

  20. __DATA__
  21. $_
复制代码

论坛徽章:
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-06-25 05:09 |显示全部楼层
回复 5# jason680

填入[0,1,2,3,4,5,6,8]不用检查(要检查也可以)
if no check?
biru:

1 6 8
9 2 4
5 7 3

sum( @A[0, 4, 8] ) = 1 + 2 + 3  != 15

论坛徽章:
115
技术图书徽章
日期: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-06-25 07:25 |显示全部楼层
本帖最后由 jason680 于 2017-06-25 07:42 编辑

回复 8# rubyish

good job


穷举法 再优化 改良...
填入[0,1]立即检查[0] + [1] > 5 , [2] = 15 -( [0] + [1] )
填入[0,1,2,3]立即检查[0] + [3] > 5 , [6] = 15 - ( [0] + [3] )
填入[0,1,2,3,4]立即检查
[3] + [4] > 5 , [5] = 15 - ( [3] + [4] )
[1] + [4] > 5 , [7] = 15 - ( [1] + [4] )
[0] + [4] > 5 , [8] = 15 - ( [0] + [4] )
[2] + [5] > 5 , [8] = 15 - ( [2] + [5] )
[6] + [7] > 5 ,  [8] = 15 - ( [6] + [7] )


论坛徽章:
115
技术图书徽章
日期: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-06-25 08:36 |显示全部楼层
本帖最后由 jason680 于 2017-06-25 09:14 编辑

回复 6# sunzhiguolu

#穷举法 优化

$ time perl 3x3sum15.pl
2 7 6
9 5 1
4 3 8  count=1
2 9 4
7 5 3
6 1 8  count=2
4 3 8
9 5 1
2 7 6  count=3
4 9 2
3 5 7
8 1 6  count=4
6 1 8
7 5 3
2 9 4  count=5
6 7 2
1 5 9
8 3 4  count=6
8 1 6
3 5 7
4 9 2  count=7
8 3 4
1 5 9
6 7 2  count=8

real    0m0.044s
user    0m0.024s
sys    0m0.004s


#穷举法 无优化
注:这是训练思路过程...
编程则须再提高...

$ time perl 3x3sum15.pl
2 7 6
9 5 1
4 3 8  count=1
...
8 3 4
1 5 9
6 7 2  count=8

real    16m16.779s
user    16m0.012s
sys    0m0.744s



$ cat 3x3sum15.pl
#
use strict;
use warnings;

# array
# [0, 1, 2]
# [3, 4, 5]
# [6, 7, 8]

my $sCnt = 0;
for my $x0 (1..9){
  for my $x1 (1..9){
    #next if($x0 + $x1 < 6);
    #next unless(unique($x0,$x1));
    for my $x2 (1..9){
      #...
      for my $x3 (1..9){
        #...
        for my $x4 (1..9){
          #...
          for my $x5 (1..9){
            #...
            for my $x6 (1..9){
              #...
              for my $x7 (1..9){
               #...
                for my $x8 (1..9){
                  #...
                  if(check_3x3($x0, $x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8)){
                    ++$sCnt;
                    print "$x0 $x1 $x2\n$x3 $x4 $x5\n$x6 $x7 $x8  count=$sCnt\n";
                  }
                }
              }
            }
          }
        }
      }
    }
  }
}
sub unique{
  my %hNum;
  for(@_){ return 0 if(++$hNum{$_}>1)}
  return 1;
}
sub sum{
  my $sRet=0;
  $sRet += $_ for @_;
  return $sRet;
}
sub check_3x3{
  
  return 0 unless(unique(@_));
  # [0]+[1]+[2] = [3]+[4]+[5] = [6]+[7]+[8] = 15
  return 0 if(sum(@_[0, 1, 2]) != 15);
  return 0 if(sum(@_[3, 4, 5]) != 15);
  return 0 if(sum(@_[6, 7, 8]) != 15);

  # [0]+[3]+[6] = [1]+[4]+[7] = [2]+[5]+[8] = 15
  return 0 if(sum(@_[0, 3, 6]) != 15);
  return 0 if(sum(@_[1, 4, 7]) != 15);
  return 0 if(sum(@_[2, 5, 8]) != 15);

  # [0]+[4]+[8] = [2]+[4]+[6] = 15
  return 0 if(sum(@_[0, 4, 8]) != 15);
  return 0 if(sum(@_[2, 4, 6]) != 15);
  return 1;

}





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

本版积分规则

10张SACC2017门票等你来拿~

在数字化转型时代,云已成为万物智能的数字化大脑。而随着大数据应用、人工智能、移动互联网等技术的飞速发展,“智慧 +” 的概念正在深入到各行各业,提升企业效率,释放商业潜能,创造全新机遇。作为国内顶级技术盛会之一,2017 中国系统架构师大会(SACC2017)将于 10 月 19-21 日在北京新云南皇冠假日酒店震撼来袭。今年,大会以 “云智未来” 为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置 2 大主会场,18 个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100 余位技术专家及行业领袖来分享他们的经验;并将吸引 4000 + 人次的系统运维、架构师及 IT 决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年10月19日前

活动链接>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP