Dlaczego niepoprawne numery zmiennoprzecinkowe Perla nie są poprawne?

Question

Szukałem konwencji zaokrąglania używanej przez wbudowaną funkcję Perla sprintf.

Myślałam, że robi normalne zaokrąglenie (np ROUND_HALF_UP jak w Java's rounding mode convention), ale kopanie dodatkowo okazało się, że jest źle:

> /usr/local/bin/perl5.10.1 -e 'print(sprintf("%.2f", shift @ARGV)."\n");' 0.335 
0.34 
> /usr/local/bin/perl5.10.1 -e 'print(sprintf("%.2f", shift @ARGV)."\n");' 1.335 
1.33 

Answer 1

zostałeś ugryziony przez fakt, że liczb zmiennoprzecinkowych nie są dokładne reprezentacje ułamków dziesiętnych. Oto co mam:

DB<1> $a=0.335 

    DB<5> print sprintf("%.19f",$a) 
0.3350000000000000200 
    DB<7> $b=1.335 

    DB<8> print sprintf("%.19f",$b) 
1.3349999999999999645 
    DB<9> 

Od 0,335 reprezentowana jest wewnętrznie jako nieco większy niż 0,335 to zaokrągla do .34, a 1.335 jest nieco mniej niż 1,335, a więc zaokrągla się do 1,33.

Answer 2

Jest to funkcja liczb zmiennoprzecinkowych IEEE.

Aby uzyskać więcej informacji, w kontekście Perl, zobacz Perlfaq4 "Does Perl have a round() function", a w szczególności, co mówi o naprzemiennej połowie trasy.