平分时钟推广到12的倍数

sxw

可以处理12的倍数，写的很乱，到了720就变得很慢了：

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. print "请输入12的倍数:";
   
6. chomp (my $digit=<STDIN>);
   
7. 
   
8. 
   
9. use List::Util qw(sum);
   
10. my $i=1;
    
11. my $half_digit=$digit/2;
    
12. my $half_sum=sum(1..$digit)/2;
    
13. my $half_1=$half_sum+1;
    
14. while ($i <= $half_1) {
    
15.         my $result=sum($i++..$half_digit++);
    
16.         print join " ",$i-1..$half_digit-1 if $half_sum==$result;
    
17.        
    
18. }
    
19. print "\n\n\n";
    
20. 
    
21. $i=$digit/2+2;
    
22. $half_digit=$digit/2;
    
23. while ($i<=$digit) {
    
24.         my $result=sum(1..$digit)-sum($i-$half_digit..$i-1);
    
25.         my @num=($i..$digit);
    
26.         print join " ",@num,1..$half_digit-@num if $half_sum==$result;
    
27.         $i++;
    
28.        
    
29. }
    
30. 
    

复制代码