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

sunzhiguolu

已知数据, 参见下图:


部分代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $base = 10;
   
6. my @aNums = map {$base * $_} 1 .. 6;
   

复制代码

如何得出类似上图的数据结构，请大神赐教。

rubyish

6 ge:

1. 10
   
2. 50 60
   
3. 30 40 20
   
4. ________________
   
5. 
   
6. 10
   
7. 60 50
   
8. 20 40 30
   
9. ________________
   
10. 
    
11. 20
    
12. 40 60
    
13. 30 50 10
    
14. ________________
    
15. 
    
16. 20
    
17. 60 40
    
18. 10 50 30
    
19. ________________
    
20. 
    
21. 30
    
22. 40 50
    
23. 20 60 10
    
24. ________________
    
25. 
    
26. 30
    
27. 50 40
    
28. 10 60 20
    
29. ________________
    

复制代码

biru:

1. #!/usr/bin/perl
   
2. # 2017-05-26
   
3. use 5.016;
   
4. sub explore;
   
5. 
   
6. my $these = [ 10, 20, 30, 40, 50, 60 ];
   
7. my $THAT = 90;
   
8. 
   
9. explore $these;
   
10. 
    
11. # ____________________SUB____________________
    
12. sub explore { E_( @_, [], 0 ) }
    
13. 
    
14. sub E_ {
    
15.     my ( $unknown, $maybe, $that ) = @_;
    
16.     if ( @$unknown == 0 ) {
    
17.         my $test = $that + $maybe->[0];
    
18.         return if $test != $THAT;
    
19.         my $ok = dosomething($maybe);
    
20.         say "@$_" for @$ok;
    
21.         say "________________\n";
    
22. 
    
23.     }
    
24.     for my $i ( 0 .. $#$unknown ) {
    
25.         my $this = $that;
    
26.         $this += $unknown->[$i];
    
27.         if ( @$maybe > 0 and @$maybe % 2 == 0 ) {
    
28.             next if $this != $THAT;
    
29.             $this = $unknown->[$i];
    
30.         }
    
31. 
    
32.         E_( [ @$unknown[ 0 .. $i - 1, $i + 1 .. $#$unknown ] ],
    
33.             [ @$maybe, $unknown->[$i] ], $this );
    
34.     }
    
35. }
    
36. 
    
37. sub dosomething {
    
38.     local $_ = shift;
    
39.     [ [ @$_[0] ], [ @$_[ 1, 5 ] ], [ @$_[ 2, 3, 4 ] ] ];
    
40. }
    
41. 
    
42. __DATA__
    
43. $_
    
44. 
    

复制代码

rubyish

biru:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. sub explore;
   
4. my $these = [ 10, 20, 30 ];
   
5. my $THAT = 90;
   
6. 
   
7. explore $these;
   
8. 
   
9. # ____________________SUB____________________
   
10. sub explore { E_( @_, [] ) }
    
11. 
    
12. sub E_ {
    
13.     my ( $OK, $ok ) = @_;
    
14.     if ( @$OK == 0 ) {
    
15.         my @ok = map $THAT - $ok->[ $_->[0] ] - $ok->[ $_->[1] ],
    
16.           [ 0, 1 ], [ 0, 2 ], [ 1, 2 ];
    
17. 
    
18.         say $ok->[0], "\n", $ok[0], ' ', $ok[1];
    
19.         say $ok->[1], ' ',  $ok[2], ' ', $ok->[2];
    
20.         say '_________';
    
21.     }
    
22.     for my $i ( 0 .. $#$OK ) {
    
23.         E_( [ @$OK[ 0 .. $i - 1, $i + 1 .. $#$OK ] ], [ @$ok, $OK->[$i] ] );
    
24.     }
    
25. }
    
26. 
    
27. __DATA__
    
28. $_
    
29. 
    

复制代码

rubyish

reverse:

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my @A = ( 10, 60, 20, 40, 30, 50 );
   
5. Print();
   
6. 
   
7. # ____________________SUB____________________
   
8. sub Print { E_() }
   
9. sub S_ { [ $A[0] ], [ @A[ 1, 5 ] ], [ @A[ 2, 3, 4 ] ] }
   
10. 
    
11. sub R_ {
    
12.     state $dir = 1;
    
13.     my $num = shift;
    
14.     if ( $num > 1 ) {
    
15.         $num = @A - $num if $dir = !$dir;
    
16.     }
    
17.     @A = @A[ -1, 0 .. $#A - 1 ] for 1 .. $num;
    
18. }
    
19. 
    
20. sub E_ {
    
21.     my $i = 0;
    
22.     my $do = [ sub { @A = reverse @A; R_(1) }, sub { R_(2) } ];
    
23.     say "@$_" for S_, ['_________'];
    
24.     for ( 1 .. 5 ) {
    
25.         $do->[$i]();
    
26.         say "@$_" for S_, ['_________'];
    
27.         $i = !$i;
    
28.     }
    
29. }
    
30. 
    
31. __DATA__
    
32. $_
    

复制代码

wand65

1. my @data=(10,20,30,40,50,60);
   
2. foreach  $first(@data){       #定义最上面的一个数字
   
3. @data2=grep(/[^$first]/,@data);
   
4. sum_eq_6(@data2);
   
5. print "\n" ;
   
6. }
   
7. 
   
8. sub sum_eq_6 {       #返回左右两个角上的值
   
9. my @datasub=@_;
   
10. foreach my $lc(@datasub){
    
11.   @datasub2=grep(/[^$lc]/,@datasub);
    
12.    foreach  my $rc(@datasub2){
    
13.    my $sum= ($first+$lc+$rc);
    
14. if ($sum==60){
    
15.     $lmc=90-$first-$lc;
    
16.     $rmc=90-$first-$rc;
    
17.     $lmr=90-$lc-$rc;
    
18. 
    
19.     print "$first\n" ;
    
20.     print "$lmc $rmc\n";
    
21.     print "$lc $lmr $rc \n";
    
22.     print "_______\n";
    
23.           }
    
24.     }
    
25.    }
    
26. }

复制代码