论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-06-11 00:45 |只看该作者 |倒序浏览

谁能帮讲讲这段CODE？先谢过~------该CODE来自Intermediate Perl

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @odd_digit_sum = grep digit_sum_is_odd($_), @input_numbers;

sub digit_sum_is_odd {

      my $input = shift;

      my @digits = split //, $input;  # Assume no nondigit characters

      my $sum;

      $sum += $_ for @digits;

      return $sum % 2;
}
print join "\n",@odd_digit_sum;

[ 本帖最后由 windows.li 于 2008-6-11 10:18 编辑 ]

文库|博客

windows.li

稍有积蓄

论坛徽章:: 0

2楼 [报告]

发表于 2008-06-11 09:49 |只看该作者

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @odd_digit_sum = grep digit_sum_is_odd($_), @input_numbers;

我是这样理解的：判断digit_sum_is_odd($_), 若它为真，则返回$_组成的列表。
那么：默认依次判断digit_sum_is_odd(1), digit_sum_is_odd(2), digit_sum_is_odd(4)......
则：SUB中，my $input = shift;即依次处理shift 1, shift 2, shift 4......
------------貌似又不对，怪怪的.......请大家指教

[ 本帖最后由 windows.li 于 2008-6-11 09:52 编辑 ]