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

jiuling

回复 6# jason680


    我的是XP系统，Perl v5.16.1

jiuling

回复 6# jason680


   没有办法像平常计算那样加起来得出准确结果吗？

jason680

回复 12# jiuling

it also no issue on XP with Perl v5.14.3

C:\bat>perl -v

This is perl 5, version 14, subversion 3 (v5.14.3) built for MSWin32-x86-multi-t
hread
...


C:\bat>sum.pl
84.6
C:\bat>type sum.pl
#!/usr/bin/perl
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;
C:\bat>

jiuling

jason680 发表于 2014-01-22 15:09
回复 12# jiuling

it also no issue on XP with Perl v5.14.3

奇怪了

jiuling

MMMIX 发表于 2014-01-22 14:22
可以通过 sprintf 的 FORMAT 指定精度，详见 perldoc -f sprintf

有办法打出准确结果吗？

jiuling

回复 13# jason680


    你再试试这个：

print 2.76-2.731;

MMMIX

jiuling 发表于 2014-01-22 15:15
有办法打出准确结果吗？

在精度之内结果本来就是准确的。

MMMIX

回复 9# q1208c


    浮点数精度有限，所以使用的时候不能当作实数，这是使用浮点数的时候必须要考虑的问题，和使用哪种浮点实现没有关系。

浮点除法并不特别复杂，也不存在什么无解的说法。

jason680

回复 16# jiuling


1. it's not Perl issue with float number
    all program language(ex: Java, php, Python, shell, C, awk ....) have the same issue when it use IEEE 754
  http://zh.wikipedia.org/zh-tw/IEEE_754
IEEE二進位浮點數算術標準（IEEE 754）是20世紀80年代以來最廣泛使用的浮點數運算標準，為許多CPU與浮點運算器所採用。這個標準定義了表示浮點數的格式（包括負零-0）與反常值（denormal number）），一些特殊數值（無窮（Inf）與非數值（NaN）），以及這些數值的「浮點數運算子」；它也指明了四種數值修約規則和五種例外狀況（包括例外發生的時機與處理方式）。


2. use below solution if you want to get result

2a: Math::BigFloat
2b: printf, sprintf
2c: use integer to do that

---------------------
use strict;
use warnings;
use Math::BigFloat;

my $n1 = 2.76;
my $n2 = 2.731;
my $d  = 1000;

my $x = Math::BigFloat->new($n1);

print $n1 - $n2, "\n";  # got some issue
print $x - $n2, "\n";   # 2a solution
printf("%.3f\n", $n1 - $n2); # 2b solution

print (($n1*$d - $n2*$d)/$d);  # 2c solution