【求助】一个关于数组取值的问题

qq27898

求各位大神帮忙提供个思路，有代码更好，小弟万分感谢~

需求：

有一个数组，其内值如：[1,2,2,1,1,2,1,1,1,2,2,1,1,2,2....]  其内仅有1和2两个数，

我想从数组取出和等于4的所有组合，并打印输出，将不能组合为和4的所有数据选择出来，放到一个数组中返回


这个需求该怎么做呀？一直没想出来。。。

qq27898

顶一个lollol

substr函数

LZ 什么意思
是这个意思

1 1 2        [11 12 13]
2 2        [10 13]
2 1 1        [10 11 12]
2 2        [9 13]
2 1 1        [9 11 12]
2 2        [9 10]
1 1 2        [8 12 13]
1 1 2        [8 11 13]
1 2 1        [8 10 12]
1 2 1        [8 10 11]
1 2 1        [8 9 12]
1 2 1        [8 9 11]
1 1 2        [7 12 13]
1 1 2        [7 11 13]
1 2 1        [7 10 12]
1 2 1        [7 10 11]
1 2 1        [7 9 12]
1 2 1        [7 9 11]
1 1 2        [7 8 13]
1 1 1 1        [7 8 11 12]
1 1 2        [7 8 10]
1 1 2        [7 8 9]
1 1 2        [6 12 13]
1 1 2        [6 11 13]
1 2 1        [6 10 12]
1 2 1        [6 10 11]
1 2 1        [6 9 12]
1 2 1        [6 9 11]
1 1 2        [6 8 13]
1 1 1 1        [6 8 11 12]
1 1 2        [6 8 10]
1 1 2        [6 8 9]
1 1 2        [6 7 13]
1 1 1 1        [6 7 11 12]
1 1 2        [6 7 10]
1 1 2        [6 7 9]
1 1 1 1        [6 7 8 12]
1 1 1 1        [6 7 8 11]
2 2        [5 13]
2 1 1        [5 11 12]
2 2        [5 10]
2 2        [5 9]
2 1 1        [5 8 12]
2 1 1        [5 8 11]
2 1 1        [5 7 12]
2 1 1        [5 7 11]
2 1 1        [5 7 8]
2 1 1        [5 6 12]
2 1 1        [5 6 11]
2 1 1        [5 6 8]
2 1 1        [5 6 7]
1 1 2        [4 12 13]
1 1 2        [4 11 13]
1 2 1        [4 10 12]
1 2 1        [4 10 11]
1 2 1        [4 9 12]
1 2 1        [4 9 11]
1 1 2        [4 8 13]
1 1 1 1        [4 8 11 12]
1 1 2        [4 8 10]
1 1 2        [4 8 9]
1 1 2        [4 7 13]
1 1 1 1        [4 7 11 12]
1 1 2        [4 7 10]
1 1 2        [4 7 9]
1 1 1 1        [4 7 8 12]
1 1 1 1        [4 7 8 11]
1 1 2        [4 6 13]
1 1 1 1        [4 6 11 12]
1 1 2        [4 6 10]
1 1 2        [4 6 9]
1 1 1 1        [4 6 8 12]
1 1 1 1        [4 6 8 11]
1 1 1 1        [4 6 7 12]
1 1 1 1        [4 6 7 11]
1 1 1 1        [4 6 7 8]
1 2 1        [4 5 12]
1 2 1        [4 5 11]
1 2 1        [4 5 8]
1 2 1        [4 5 7]
1 2 1        [4 5 6]
1 1 2        [3 12 13]
1 1 2        [3 11 13]
1 2 1        [3 10 12]
1 2 1        [3 10 11]
1 2 1        [3 9 12]
1 2 1        [3 9 11]
1 1 2        [3 8 13]
1 1 1 1        [3 8 11 12]
1 1 2        [3 8 10]
1 1 2        [3 8 9]
1 1 2        [3 7 13]
1 1 1 1        [3 7 11 12]
1 1 2        [3 7 10]
1 1 2        [3 7 9]
1 1 1 1        [3 7 8 12]
1 1 1 1        [3 7 8 11]
1 1 2        [3 6 13]
1 1 1 1        [3 6 11 12]
1 1 2        [3 6 10]
1 1 2        [3 6 9]
1 1 1 1        [3 6 8 12]
1 1 1 1        [3 6 8 11]
1 1 1 1        [3 6 7 12]
1 1 1 1        [3 6 7 11]
1 1 1 1        [3 6 7 8]
1 2 1        [3 5 12]
1 2 1        [3 5 11]
1 2 1        [3 5 8]
1 2 1        [3 5 7]
1 2 1        [3 5 6]
1 1 2        [3 4 13]
1 1 1 1        [3 4 11 12]
1 1 2        [3 4 10]
1 1 2        [3 4 9]
1 1 1 1        [3 4 8 12]
1 1 1 1        [3 4 8 11]
1 1 1 1        [3 4 7 12]
1 1 1 1        [3 4 7 11]
1 1 1 1        [3 4 7 8]
1 1 1 1        [3 4 6 12]
1 1 1 1        [3 4 6 11]
1 1 1 1        [3 4 6 8]
1 1 1 1        [3 4 6 7]
1 1 2        [3 4 5]
2 2        [2 13]
2 1 1        [2 11 12]
2 2        [2 10]
2 2        [2 9]
2 1 1        [2 8 12]
2 1 1        [2 8 11]
2 1 1        [2 7 12]
2 1 1        [2 7 11]
2 1 1        [2 7 8]
2 1 1        [2 6 12]
2 1 1        [2 6 11]
2 1 1        [2 6 8]
2 1 1        [2 6 7]
2 2        [2 5]
2 1 1        [2 4 12]
2 1 1        [2 4 11]
2 1 1        [2 4 8]
2 1 1        [2 4 7]
2 1 1        [2 4 6]
2 1 1        [2 3 12]
2 1 1        [2 3 11]
2 1 1        [2 3 8]
2 1 1        [2 3 7]
2 1 1        [2 3 6]
2 1 1        [2 3 4]
2 2        [1 13]
2 1 1        [1 11 12]
2 2        [1 10]
2 2        [1 9]
2 1 1        [1 8 12]
2 1 1        [1 8 11]
2 1 1        [1 7 12]
2 1 1        [1 7 11]
2 1 1        [1 7 8]
2 1 1        [1 6 12]
2 1 1        [1 6 11]
2 1 1        [1 6 8]
2 1 1        [1 6 7]
2 2        [1 5]
2 1 1        [1 4 12]
2 1 1        [1 4 11]
2 1 1        [1 4 8]
2 1 1        [1 4 7]
2 1 1        [1 4 6]
2 1 1        [1 3 12]
2 1 1        [1 3 11]
2 1 1        [1 3 8]
2 1 1        [1 3 7]
2 1 1        [1 3 6]
2 1 1        [1 3 4]
2 2        [1 2]
1 1 2        [0 12 13]
1 1 2        [0 11 13]
1 2 1        [0 10 12]
1 2 1        [0 10 11]
1 2 1        [0 9 12]
1 2 1        [0 9 11]
1 1 2        [0 8 13]
1 1 1 1        [0 8 11 12]
1 1 2        [0 8 10]
1 1 2        [0 8 9]
1 1 2        [0 7 13]
1 1 1 1        [0 7 11 12]
1 1 2        [0 7 10]
1 1 2        [0 7 9]
1 1 1 1        [0 7 8 12]
1 1 1 1        [0 7 8 11]
1 1 2        [0 6 13]
1 1 1 1        [0 6 11 12]
1 1 2        [0 6 10]
1 1 2        [0 6 9]
1 1 1 1        [0 6 8 12]
1 1 1 1        [0 6 8 11]
1 1 1 1        [0 6 7 12]
1 1 1 1        [0 6 7 11]
1 1 1 1        [0 6 7 8]
1 2 1        [0 5 12]
1 2 1        [0 5 11]
1 2 1        [0 5 8]
1 2 1        [0 5 7]
1 2 1        [0 5 6]
1 1 2        [0 4 13]
1 1 1 1        [0 4 11 12]
1 1 2        [0 4 10]
1 1 2        [0 4 9]
1 1 1 1        [0 4 8 12]
1 1 1 1        [0 4 8 11]
1 1 1 1        [0 4 7 12]
1 1 1 1        [0 4 7 11]
1 1 1 1        [0 4 7 8]
1 1 1 1        [0 4 6 12]
1 1 1 1        [0 4 6 11]
1 1 1 1        [0 4 6 8]
1 1 1 1        [0 4 6 7]
1 1 2        [0 4 5]
1 1 2        [0 3 13]
1 1 1 1        [0 3 11 12]
1 1 2        [0 3 10]
1 1 2        [0 3 9]
1 1 1 1        [0 3 8 12]
1 1 1 1        [0 3 8 11]
1 1 1 1        [0 3 7 12]
1 1 1 1        [0 3 7 11]
1 1 1 1        [0 3 7 8]
1 1 1 1        [0 3 6 12]
1 1 1 1        [0 3 6 11]
1 1 1 1        [0 3 6 8]
1 1 1 1        [0 3 6 7]
1 1 2        [0 3 5]
1 1 1 1        [0 3 4 12]
1 1 1 1        [0 3 4 11]
1 1 1 1        [0 3 4 8]
1 1 1 1        [0 3 4 7]
1 1 1 1        [0 3 4 6]
1 2 1        [0 2 12]
1 2 1        [0 2 11]
1 2 1        [0 2 8]
1 2 1        [0 2 7]
1 2 1        [0 2 6]
1 2 1        [0 2 4]
1 2 1        [0 2 3]
1 2 1        [0 1 12]
1 2 1        [0 1 11]
1 2 1        [0 1 8]
1 2 1        [0 1 7]
1 2 1        [0 1 6]
1 2 1        [0 1 4]
1 2 1        [0 1 3]

qq27898

回复 3# substr函数


没看明白你的。。。


我的目的是将保存了很多 1、2 的数组中随机取出一行和为 4  的组合，数组中每个值仅能用一次


   

substr函数

回复 1# qq27898

没看明白你的目的
举个栗子呀
   

qq27898

回复 5# substr函数


比如我又一个数组 $arr = array(2,1,1,1,2,1,1,2,2,2,1,1,1); 内部一共13个数字

我要找到如下组合：

2 1 1
1 2 1
1 2 1
2    2
1 1

基本每行和都为4



   

substr函数

lz 两个

2 1 1
1 2 1
1 2 1
2    2
1 1

2 1 1
1 2 1
1 2 1
2  1 1
2
这些东西
LZ 具体哪一个

qq27898

回复 7# substr函数


两个都行，只要符合行的和为4即可，辛苦了


   

MMMIX

回复 6# qq27898


    逐个试验一遍就都有了：

1. 
   
2. sub allpattern {
   
3.     my ($r, $sum) = @_;
   
4. 
   
5.     my @pats;
   
6. 
   
7.     for my $i (0 .. $#{$r}) {
   
8.         my (@pat, $tsum);
   
9.         for my $j ($i .. $#{$r}) {
   
10.             push @pat, $r->[$j];
    
11.             $tsum += $r->[$j];
    
12.             if ($tsum >= $sum) {
    
13.                 push @pats, \@pat if $tsum == $sum;
    
14.                 last;
    
15.             }
    
16.         }
    
17.     }
    
18.     return @pats;
    
19. }
    
20. 
    
21. allpattern(\@arr, 4);
    

复制代码

substr函数

符合了
2 2
1 1 2
1 1 1 1
2 2
2 2
1

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. 
   
4. my @A = ( 2, 2, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 2 );
   
5. my @B = GREP( 4, @A );
   
6. 
   
7. say "@$_" for @B;
   
8. 
   
9. sub GREP {
   
10.     my ( $TOTAL, @A ) = @_;
    
11.     my @RETURN = ();
    
12. 
    
13.   TRY:
    
14.     my @TMP = ();
    
15.     my $SUM = 0;
    
16.     my $TRY = 0;
    
17. 
    
18.     for (@A) {
    
19.         if ( $SUM + $_ > $TOTAL ) { next }
    
20.         push @TMP, $_;
    
21.         $SUM += $_;
    
22.         $_ = 0;
    
23. 
    
24.         if ( $SUM == $TOTAL ) {
    
25.             push @RETURN, [@TMP];
    
26.             $TRY = 1;
    
27.             $SUM = 0;
    
28.             @TMP = ();
    
29.         }
    
30.     }
    
31. 
    
32.     @A = grep { $_ } @A;
    
33.     if ($TRY) {
    
34. 
    
35.         # TOTAL = 5, A = [2, 1, 1, 2]
    
36.         # ERROR: push @A, @TMP
    
37.         @A = sort { $b <=> $a } @A, @TMP;
    
38.         goto TRY;
    
39.     }
    
40. 
    
41.     push @RETURN, [ @A, @TMP ];
    
42.     return @RETURN;
    
43. }
    
44. 
    

复制代码