一个关于数字的狠低级狠低级的问题。。。。

Little-C

1. my $x = 1/3;
   
2. my $y = 1 - $x;
   
3. my $z = 2/3;
   
4. 
   
5. if ($y == $z) {
   
6.   print "equal\n";
   
7. }
   
8. else {
   
9.   print "not equal\n";
   
10. }
    
11. print "$y\n";
    
12. print "$z\n";
    
13. 
    

复制代码

输出的结果是

not equal
0.666666666666667
0.666666666666667


但是要是 $x = 1; $y = 3 - $x; $z = 2;  结果就是equal。。。。。

兰花仙子

/tmp# cat t1.pl
use strict;

my $x = 1/3;
my $y = 1 - $x;
my $z = 2/3;

printf("%.50f\n",$y);
printf("%.50f\n",$z);

/tmp# perl t1.pl
0.66666666666666674068153497501043602824211120605469
0.66666666666666662965923251249478198587894439697266

那是你以为它们相等。计算机可不这么认为。

wxlfh

是的，平常计算机存储数据都是有误差的，除非使用专门的模块。

2gua

又是啥地板除类似的。