use List::Util qw/sum/;求和结果出现很多位小数

jiuling

use List::Util qw/sum/;
@number = (0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.9);
$sum = sum @number;
print $sum;


以上是代码，94个0.9相加，打印出来的结果有很多位小数：84.6000000000001；可是当我去掉一个0.9，93个0.9相加时，打印出来的结果就很正常了：83.7。这是怎么回事？

pitonas

{:2_172:} 楼下
http://bbs.chinaunix.net/thread-4120063-1-1.html

jiuling

谢谢，可惜看不懂

jiuling

要怎样才能打印出不带这么多小数的结果？

MMMIX

jiuling 发表于 2014-01-22 13:18
要怎样才能打印出不带这么多小数的结果？

可以通过 sprintf 的 FORMAT 指定精度，详见 perldoc -f sprintf

jason680

回复 1# jiuling

It's no issue on ubuntu 12.04.3 LTS with Perl v5.14.2

print "$sum\n";
printf("%.1f\n", $sum);
printf("%.2f\n", $sum);

$ perl sum.pl
84.6
84.6
84.60

   

q1208c

这跟perl有毛关系. 这是计算系统都存在的一个问题, 就是浮点数的精度问题.

目前好象还没听说有太好的解决方案.

MMMIX

q1208c 发表于 2014-01-22 14:39
这跟perl有毛关系. 这是计算系统都存在的一个问题, 就是浮点数的精度问题.

目前好象还没听说有太好的解 ...

计算时把精度考虑进去（本来就应该考虑的）就是了。

q1208c

回复 8# MMMIX


这不是你能不能考虑的问题, 这是浮点数存储结构带来的问题.

所以, 才会有人自己实现浮点数计算的类来解决这种 加,减,乘法带来的问题, 但除法的问题, 基本上是无解的.

jason680

回复 7# q1208c

Math::BigFloat
http://perldoc.perl.org/Math/BigFloat.html