处理分数

jiujiujiu338

1. #!/urs/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. if (10/3==((1/3)*10)){
   
6.         print "success!";
   
7. }
   
8. else{
   
9.         print "failure!";
   
10. }

复制代码

运行以上程序时，出现的结果是“failure” 该如何改正啊，请求帮助~~

nixiaoweihunter

#!perl
use strict;
use warnings;

my $a=10/3;
my $b=(1/3)*10;
if ($a=$b){
        print "success!";
}
else{
        print "failure!";
}

jason680

回复 2# nixiaoweihunter


if ($a=$b){
   print "always true for \$a=\$b\n";
}

ziyunfei

if (10/3 eq ((1/3)*10)){

zhlong8

浮点数因为只有有限精度所以计算的时候丢失精度很正常的，除非是同样来源（同样计算方式或字符串转化而来）否则不应该比较相等性

herer

1. #!/urs/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. if (sprintf("%.2f",10/3)==sprintf("%.2f",(1/3)*10)){
   
6.         print "success!";
   
7. }
   
8. else{
   
9.         print "failure!";
   
10. }

复制代码

zhlong8

print unpack 'B*', pack 'F', 10/3;
print "\n";
print unpack 'B*', pack 'F', 1/3*10;

你看也应该是第 8 个 bit 不一样，理由上面说了。还有就是除了我说的目前楼上的都不靠谱

jason680

回复 1# jiujiujiu338

变通一下,我的比较靠谱(但不完全,但可以解决90%的问题了..)   

$ cat number.pl
#!perl
use strict;
use warnings;

my $a=10/3;
my $b=(1/3)*10;
if ( $a == $b ){
        print "\$a, success!\n";
}
else{
        print "\$a, failure!\n";
}
if ( $a * 3 == $b *3 ){
        print "\$a*3, success!\n";
}
else{
        print "\$a*3, failure!\n";
}

$ perl number.pl
$a, failure!
$a*3, success!

zhlong8

想起来了，虽然我不用不过 Perl 有个 Math::BigRat 支持有理数的。另外楼上在不靠谱的路上越走越远了

jason680

回复 9# zhlong8

>>另外楼上在不靠谱的路上越走越远了

我知道不一定靠谱....(但能解决一些问题....)

给个理由吧....让大家信服,也学习一下.....