Board logo

标题: [原创代码] 【练习-041】平分时钟数字 [打印本页]

作者: sxw    时间: 2011-10-9 15:27     标题: 【练习-041】平分时钟数字

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





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2