Perl浮点数简单累加运算结果出现微小偏差的原因是什么

该现象是IEEE 754标准二进制浮点数的固有精度限制导致的，所有遵循该标准实现浮点数存储的编程语言都会出现同类问题，并非Perl语言的bug。

• 十进制的0.025属于无法被二进制精确表示的小数：转换成二进制时会得到无限循环的序列，实际存储时只能保留固定位数的有效数字，本质是一个和0.025非常接近的近似值。
• 每次做$a += 0.025的累加操作时，存储带来的微小误差会不断累积，当累积的误差达到打印输出的精度阈值时，就会出现2.42499999999999这类和预期十进制值不符的输出。
• 部分累加结果刚好可以在当前显示精度下和十进制预期值吻合，因此会出现异常、正常输出交替的情况；随着累加次数增加，误差不断累积，到循环后期接近50时，偏差就会表现得更加明显。

解决方案 #

如果需要完全避免这类精度问题，可以采用两种修正方案：

方案1：转换为整数运算 #

把所有小数运算放大为整数运算，输出时再缩小对应倍数，从根源上规避浮点数精度问题：

#!/usr/bin/perl
$a = 1000; # 原值1放大1000倍
while ($a <= 50000) { # 上限50放大1000倍
    printf "%.3f\n", $a/1000;
    $a += 25; # 步长0.025放大1000倍
}

方案2：使用高精度运算模块 #

调用Perl内置的bignum模块实现十进制高精度运算：

#!/usr/bin/perl
use bignum;
$a = 1;
while ($a <= 50) {
    print "$a\n";
    $a += 0.025;
}

内容的提问来源于stack exchange，提问作者Friedrich