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

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Sum{
   
6.     my $sum = 0;
   
7.     $sum += $_ for @{$_[0]};
   
8.     return $sum == 4 ? 0 : do {$sum > 4 ? 1 : -1};
   
9. }
   
10. 
    
11. my $aNums = [2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1];
    
12. my @aData = [splice (@{$aNums}, 0, 2)];
    
13. my $flag;
    
14. while (@$aNums){
    
15.     last if (Sum ([@$aNums, @{$aData[-1]}]) == -1);
    
16.     if ($flag = Sum ($aData[-1])){
    
17.         $flag > 0 ? push (@$aNums, shift (@{$aData[-1]})) : push (@{$aData[-1]}, shift (@$aNums));
    
18.     }
    
19.     push (@aData, [splice (@{$aNums}, 0, 2)]) if (!Sum ($aData[-1]));
    
20. }
    
21. 
    
22. print "@$_\n" for @aData, $aNums;
    

复制代码

perl abc.pl
-----------------------------------
2 1 1
1 2 1
2 2
2 1 1
1 1