处理分数

zhlong8

回复  zhlong8

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

我知道不一定靠谱....(但能解决一些问题....)
...
jason680 发表于 2011-10-13 13:54

    首先 $a != $b 然后 $a*3 == $b*3 你间接证明了浮点数乘法也是靠不住的。其实我只想说浮点数通常情况下比较相等没多大意义，楼主思路有问题。

    你和那几位试图暴力解决这个问题，我认为应该从数学角度考虑浮点数精度带来的问题和哪些运算是安全的方面来入手

Perlvim

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. # 设定精度要求
   
7. my $ignore_min_value = 0.0000001;
   
8. 
   
9. if ( (10/3 - ((1/3)*10)) < $ignore_min_value) {
   
10.     print "success!";
    
11. }
    
12. else {
    
13.     print "failure!";
    
14. }

复制代码

yybmsrs

1. # equal(NUM1, NUM2, PRECISION) : returns true if NUM1 and NUM2 are
   
2. # equal to PRECISION number of decimal places
   
3. sub equal {
   
4.     my ($A, $B, $dp) = @_;
   
5.     return sprintf("%.${dp}g", $A) eq sprintf("%.${dp}g", $B);
   
6.   }

复制代码