Perl 求幂结果为“nan”

Question

我有以下问题： 我有许多值 x，我需要计算 x^e （e 是欧拉数）。 我这样做：

$x = $x ** exp(1);

这会导致我的所有测试用例都为“nan”。

但是，如果我在执行此操作之前打印 $x 的值，然后取一个并将上面的行更改为：

$x = -12.4061063212051 ** exp(1);

它会产生完美的数字。

谁能指出我在这里做错了什么？

谢谢

PS：也许错误隐藏在其他地方，所以这是我计算 $x 的方法：

$y = #some float value taken from the output string of another program
$x = ($y/(303 * 0.0019872041));
print $x; #prints number
$x = $x ** exp(1);
print $x; #prints "nan"

Answer 1

这都是关于运算符优先级的：

$x = -12.4061063212051 ** exp(1);

实际上

$x = - (12.4061063212051 ** exp(1));

就像使用

$ perl -MO=Deparse,-p -e'$x = -12.4061063212051 ** $e'
($x = (-(12.4061063212051 ** $e)));
-e syntax OK

Which is Fine 所看到的那样。

如果您尝试以下操作，它也会像您的程序一样失败：

$x = (- 12.4061063212051) ** exp(1);

而且应该如此，没有满足此条件的实数。

Answer 2

让我们暂时让事情变得更容易一些，假设我们正在使用 $x**2.5。好吧，从 2.5==5.0/2.0 开始，我们有 $x**2.5==$x**(5.0/2.0)==($x**0.5)**5.0。或者，换句话说，$x**2.5 与 sqrt($x) 的五次方相同。

由于计算机默认情况下只处理实数，您认为如果 $x==-1 会发生什么？

是的......现在，如果 $x<0$ 并且我们想要采用 $x**exp(1) （Perl 使用的十进制近似值 <代码>exp(1)是2.71828182845905）？