小学一年级数学题 - 系列-3

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

复制代码

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

复制代码

rubyish

回复 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

rubyish

回复 9# jason680

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

3 Q ~~

rubyish

回复 14# 523066680

[Finished in 7.2s]

good machine ~~
wode:
real        0m22.694s
user        0m22.413s
sys        0m0.167s

rubyish

回复 11# 田小江

下面说说我的思路

3Q ~ zhege youyisi. XXle.

1. #!/usr/bin/perl
   
2. # (v5.26.0)
   
3. use 5.010;
   
4. 
   
5. make();
   
6. 
   
7. # _____________________SUB____________________
   
8. 
   
9. sub make {
   
10.     my @abcd = ( 2, 4, 6, 8 );
    
11. 
    
12.     for my $a (@abcd) {
    
13.         my $b = 10 - $a;
    
14.         my @cd = grep { $_ != $a and $_ != $b } @abcd;
    
15.         for my $cd ( [@cd], [ reverse @cd ] ) {
    
16.             my ( $c, $d ) = @$cd;
    
17.             my @X = ( 15 - $a - $c, 15 - $a - $d, 15 - $c - $b, 15 - $d - $b );
    
18. 
    
19.             # a  X0 c
    
20.             # X1 5  X2
    
21.             # d  X3 b
    
22. 
    
23.             say join ' ', $a, $X[0], $c;
    
24.             say join ' ', $X[1], 5, $X[2];
    
25.             say join ' ', $d, $X[3], $b;
    
26.             say '------';
    
27.         }
    
28.     }
    
29. }
    
30. 
    
31. __DATA__
    
32. $_
    

复制代码

rubyish

回复 18# sunzhiguolu

如果代码 添加了 use warnings; 该怎样改动一下？

OK,

add

1. use warnings;

复制代码

NO warnings;
perl version 26, subversion 0 (v5.26.0)

rubyish

v2:
real        0m0.079s
user        0m0.065s
sys        0m0.004s

1. #!/usr/bin/perl
   
2. # version 26, subversion 0 (v5.26.0)
   
3. 
   
4. use 5.010;
   
5. 
   
6. explore();
   
7. 
   
8. # ______________________ SUB ______________________
   
9. 
   
10. sub explore { E_(0) }
    
11. 
    
12. sub E_ {
    
13.     my $n = shift;
    
14.     state $b   = [ (0) x 4 ];
    
15.     state $has = [ (0) x 10 ];
    
16.     state $in = [ [ 0, 1 ], [ 2, 3 ], [ 0, 2 ], [ 1, 3 ], [ 0, 3 ] ];
    
17. 
    
18.     if ( $n == 4 ) {
    
19.         my ( @test, @x ) = (0) x 10;
    
20.         $test[$_] = 1 for @$b;
    
21.         
    
22.         for my $i (@$in) {
    
23.             my $it = $b->[ $i->[0] ] + $b->[ $i->[1] ];
    
24.             return if $it < 6 or $it > 14;
    
25.             $it = 15 - $it;
    
26.             return if $test[$it]++;
    
27.             push @x, $it;
    
28.         }
    
29. 
    
30.         return if $x[0] + $b->[3] + $x[2] != 15;
    
31.         my @X = ( @$b[ 0, 1 ], $x[0], @$b[ 2, 3 ], @x[ 1 .. 4 ] );
    
32. 
    
33.         say join ' ', @X[ 0, 1, 2 ];
    
34.         say join ' ', @X[ 3, 4, 5 ];
    
35.         say join ' ', @X[ 6, 7, 8 ];
    
36.         say '-----';
    
37.         return;
    
38.     }
    
39. 
    
40.     for my $it ( 1 .. 9 ) {
    
41.         next if $has->[$it];
    
42.         $has->[$it]++;
    
43.         $b->[$n] = $it;
    
44.         E_( $n + 1 );
    
45.         $has->[$it]--;
    
46.     }
    
47. }
    
48. 
    
49. __DATA__
    
50. $_
    
51. 
    

复制代码

rubyish

回复 23# sunzhiguolu

kankan:

1. 0 [0 1 2 3]   []
   
2. 1 [1 2 3]     [0]
   
3. 2 [2 3]       [0 1]
   
4. 3 [3]         [0 1 2]
   
5. 4 []          [0 1 2 3]
   
6. 3 [2]         [0 1 3]
   
7. 4 []          [0 1 3 2]
   
8. 2 [1 3]       [0 2]
   
9. 3 [3]         [0 2 1]
   
10. 4 []          [0 2 1 3]
    
11. 3 [1]         [0 2 3]
    
12. 4 []          [0 2 3 1]
    
13. 2 [1 2]       [0 3]
    
14. 3 [2]         [0 3 1]
    
15. 4 []          [0 3 1 2]
    
16. 3 [1]         [0 3 2]
    
17. 4 []          [0 3 2 1]
    
18. 1 [0 2 3]     [1]
    
19. 2 [2 3]       [1 0]
    
20. 3 [3]         [1 0 2]
    
21. 4 []          [1 0 2 3]
    
22. 3 [2]         [1 0 3]
    
23. 4 []          [1 0 3 2]
    
24. 2 [0 3]       [1 2]
    
25. 3 [3]         [1 2 0]
    
26. 4 []          [1 2 0 3]
    
27. 3 [0]         [1 2 3]
    
28. 4 []          [1 2 3 0]
    
29. 2 [0 2]       [1 3]
    
30. 3 [2]         [1 3 0]
    
31. 4 []          [1 3 0 2]
    
32. 3 [0]         [1 3 2]
    
33. 4 []          [1 3 2 0]
    
34. 1 [0 1 3]     [2]
    
35. 2 [1 3]       [2 0]
    
36. 3 [3]         [2 0 1]
    
37. 4 []          [2 0 1 3]
    
38. 3 [1]         [2 0 3]
    
39. 4 []          [2 0 3 1]
    
40. 2 [0 3]       [2 1]
    
41. 3 [3]         [2 1 0]
    
42. 4 []          [2 1 0 3]
    
43. 3 [0]         [2 1 3]
    
44. 4 []          [2 1 3 0]
    
45. 2 [0 1]       [2 3]
    
46. 3 [1]         [2 3 0]
    
47. 4 []          [2 3 0 1]
    
48. 3 [0]         [2 3 1]
    
49. 4 []          [2 3 1 0]
    
50. 1 [0 1 2]     [3]
    
51. 2 [1 2]       [3 0]
    
52. 3 [2]         [3 0 1]
    
53. 4 []          [3 0 1 2]
    
54. 3 [1]         [3 0 2]
    
55. 4 []          [3 0 2 1]
    
56. 2 [0 2]       [3 1]
    
57. 3 [2]         [3 1 0]
    
58. 4 []          [3 1 0 2]
    
59. 3 [0]         [3 1 2]
    
60. 4 []          [3 1 2 0]
    
61. 2 [0 1]       [3 2]
    
62. 3 [1]         [3 2 0]
    
63. 4 []          [3 2 0 1]
    
64. 3 [0]         [3 2 1]
    
65. 4 []          [3 2 1 0]
    

复制代码

rubyish

v3:

1. real        0m0.030s

复制代码

1. #!/usr/bin/perl
   
2. # version 26, subversion 0 (v5.26.0)
   
3. use 5.010;
   
4. explore();
   
5. 
   
6. # ______________________ SUB ______________________
   
7. 
   
8. sub explore { E_(0) }
   
9. 
   
10. sub E_ {
    
11.     my $n = shift;
    
12.     state $b   = [ (0) x 4 ];
    
13.     state $has = [ (0) x 10 ];
    
14.     state $in  = [ [ 0, 1 ], [ 2, 3 ], [ 0, 2 ], [ 1, 3 ], [ 0, 3 ] ];
    
15. 
    
16.     if ( $n == 3 ) {
    
17.         # b3 = 15 - (15 - b0 - b1) - (15 - b0 - b2)
    
18.         my $b3 = $b->[0] + $b->[0] + $b->[1] + $b->[2] - 15;
    
19.         return if $b3 < 1 or $b3 > 9;
    
20.         $b->[3] = $b3;
    
21.         my ( @test, @x ) = (0) x 10;
    
22.         $test[$_]++ and return for @$b;
    
23. 
    
24.         for my $i (@$in) {
    
25.             my $it = $b->[ $i->[0] ] + $b->[ $i->[1] ];
    
26.             return if $it < 6 or $it > 14;
    
27.             $it = 15 - $it;
    
28.             return if $test[$it]++;
    
29.             push @x, $it;
    
30.         }
    
31. 
    
32.         say join ' ', @$b[ 0, 1 ], $x[0];
    
33.         say join ' ', @$b[ 2, 3 ], $x[1];
    
34.         say join ' ', @x[ 2, 3, 4 ];
    
35.         say '-----';
    
36.         return;
    
37.     }
    
38. 
    
39.     for my $it ( 1 .. 9 ) {
    
40.         next if $has->[$it];
    
41.         $has->[$it]++;
    
42.         $b->[$n] = $it;
    
43.         E_( $n + 1 );
    
44.         $has->[$it]--;
    
45.     }
    
46. }
    
47. 
    
48. __DATA__
    
49. $_
    

复制代码