Perl中最小的非零正浮点数是什么?

其他答案都很好。以下是如果您不知道这些信息,并且无法将您的问题发布到so上,如何找出近似的ε;-)

 #!/usr/bin/perl

use strict;
use warnings;

use constant MAX_COUNT => 2000;

my ($x, $c);

for (my $y = 1; $y; $y /= 2) {
    $x = $y;
    # guard against too many iterations
    last if ++$c > MAX_COUNT;
}

printf "%d : %.20g\n", $c, $x;

输出:

C:\Temp> thj
1075 : 4.9406564584124654e-324

根据 perldoc perlnumber ,Perl使用本机浮点格式,其中本机定义为用于编译本机的C编译器。如果你更担心的是精度/准确性而不是速度,看看 bignum .

重要的是要注意,最小的数字就是所谓的次正规数,对其进行数学运算可能会产生令人惊讶的结果:

$ perl -wle'$x = 4.94e-324; print for $x, $x*1.4, $x*.6'
4.94065645841247e-324
4.94065645841247e-324
4.94065645841247e-324

这是因为它使用了最小的允许(基-2)指数和尾数形式(基-2)0.0000000…0001。更大,但仍低于正常值,数字也将有尾数开始0。以及越来越大的精度范围。

实际上我不知道Perl是如何表示浮点数字的(我认为这是在构建Perl时配置的),但是如果我们假设使用了IEEE754,那么64位浮点数字的epsilon是4.94065645841247e-324。