小學(xué)一年級數(shù)學(xué)題 - 系列-3

sunzhiguolu

數(shù)字 1-9 的范圍, 使橫，豎，對角的數(shù)值分別為 15.
列舉所有的可能性，哪位大神會算算術(shù) 我實在是不會加減法啊。

jason680

回復(fù) 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

sunzhiguolu

回復(fù) 2# jason680
大神，難道是通過看圖片進行求解？
在真實環(huán)境中 數(shù)值不會像圖片中那樣擺放的。
很可能就是一組亂序的數(shù)字而已，但先決條件是 1-9 個數(shù)字，且不會重復(fù)。

之所以放置這張圖片，是為了讓大家更直觀的進行觀察。而不是照圖寫答案啊。。。

sunzhiguolu

另外，即使通過觀察 利用索引將相關(guān)的數(shù)組元素 進行求解
進行求解失敗后，如何以優(yōu)雅的方式 將各個元素的數(shù)值進行調(diào)換？

jason680

回復(fù) 3# sunzhiguolu

窮舉法

1數(shù)組
@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


窮舉法 優(yōu)化 改良...

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]不用檢查（要檢查也可以）


窮舉法 再優(yōu)化 改良...
填入[0,1]立即檢查[0] + [1] > 5 , [2] = 15 - [0] + [1]
....

窮舉法 再再優(yōu)化 改良...
....

sunzhiguolu

回復(fù) 5# jason680
大神不常說怎想怎編程嗎？ 用代碼遠比用文字更說明問題。
如果已經(jīng)有求解思路的話。。。

rubyish

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

復(fù)制代碼

biru:

1. #!/usr/bin/perl
   
2. 
   
3. explore();   
   
4. 
   
5. # ______________________ SUB ______________________
   
6. 
   
7. sub explore { E_( [ 1 .. 9 ], [] ) }
   
8. use List::Util qw[sum];
   
9. 
   
10. sub E_ {
    
11.     my ( $a, $b ) = @_;
    
12.     if    ( @$b == 3 ) { sum( @$b[ 0, 1, 2 ] ) != 15 and return }
    
13.     elsif ( @$b == 6 ) { sum( @$b[ 3, 4, 5 ] ) != 15 and return }
    
14.     elsif ( @$b == 7 ) { sum( @$b[ 0, 3, 6 ] ) != 15
    
15.                        || sum( @$b[ 2, 4, 6 ] ) != 15 and return }
    
16.     elsif ( @$b == 8 ) { sum( @$b[ 1, 4, 7 ] ) != 15 and return }
    
17.     elsif ( @$b == 9 ) { sum( @$b[ 0, 4, 8 ] ) != 15 and return;
    
18.         print "@$b[0,1,2]\n@$b[3,4,5]\n@$b[6,7,8]\n";
    
19.         print "-----\n";
    
20.     }
    
21. 
    
22.     E_( [ @$a[ 0 .. $_ - 1, $_ + 1 .. $#$a ] ], [ @$b, $a->[$_] ] )
    
23.         for 0 .. $#$a;
    
24. }
    
25. 
    
26. __DATA__
    
27. $_
    

復(fù)制代碼

rubyish

回復(fù) 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

jason680

回復(fù) 8# rubyish

good job


窮舉法 再優(yōu)化 改良...
填入[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] )

jason680

回復(fù) 6# sunzhiguolu

#窮舉法 優(yōu)化

$ 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


#窮舉法 無優(yōu)化
注：這是訓(xùn)練思路過程...
編程則須再提高...

$ 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;

}