编辑:对于遇到此问题的任何人,我发现在https://perldoc.perl.org/perlop#Conditional-Operator的 perldoc 中几乎逐字记录了这一点
在编写一个简单的子程序时,我发现我使用三元运算符不断得到错误的结果,但使用更简单的 if 语句得到正确的结果。我确定有一个解释,但我只是没有看到它。
当输入以下输入时:
my @input = (4, 5, 7, 8, 1, 2, 3, 0);
sum_square_even_root_odd(\@input);
Run Code Online (Sandbox Code Playgroud)
结果应该是 91.61。
以下(使用三元)结果为 175.61。
sub sum_square_even_root_odd {
my ($nums) = @_;
my $sum = 0;
map { $_ % 2 ? $sum+= sqrt $_ : $sum += $_ ** 2 } @{$nums};
return sprintf('%.2f', $sum) + 0;
};
Run Code Online (Sandbox Code Playgroud)
但是,结果是简单地更改为 if 语句时的预期结果
sub sum_square_even_root_odd {
my ($nums) = @_;
my $sum = 0;
map { if( $_ % 2 ) …Run Code Online (Sandbox Code Playgroud)