【练习-041】平分时钟数字

sxw

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use List::Util qw(sum);
   
7. my $i=1;
   
8. my $j=6;
   
9. while ($i<=7) {
   
10.         my $result=sum($i++..$j++);
    
11.         print join " ",$i-1..$j-1 if 39==$result;
    
12. }
    
13. print "\n";
    
14. while ($i<=12) {
    
15.         my $result=sum(1..12)-sum($i-6..$i-1);
    
16.         my @num=($i..12);
    
17.         print join " ",@num,1..6-@num if 39==$result;
    
18.         $i++;
    
19. }
    

复制代码