Help for this page

Select Code to Download


  1. or download this
    227.20
1176.00
...
0.00
0.00
0.00
  2. or download this
    7566.85
  3. or download this
    open (X,"< x.txt");
while ($n = <X>) {
...

    return sprintf("%.${dp}g",$A) eq sprintf("%.${dp}g",$B);
}
  4. or download this
    t  = 7566.85
st = 7566.85
Different
  5. or download this
    sub equal {
    my ($A,$B,$dp) = @_;
...
    }
    return sprintf("%.${dp}g",$A) eq sprintf("%.${dp}g",$B);
}
  6. or download this
    t  = 7566.85
st = 7566.85
Equal