Warum sprintet Perl nicht runde Gleitkommazahlen richtig?

Question

Ich war auf der Suche nach der Rundungskonvention von Perls eingebauter Funktion sprintf.

Ich dachte, dass es eine normale Rundung tut (zB ROUND_HALF_UP wie in Java's rounding mode convention), aber weiter bewiesen Graben dies falsch sein:

> /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

Sie haben durch die Tatsache, gebissen worden, dass Gleitkommazahlen sind nicht exakte Darstellungen von Dezimalbrüchen. Hier ist, was ich bekommen:

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> 

Da 0,335 dargestellt wird intern als etwas größer als 0,335 es .34 Runden, während 1.335 ist etwas weniger als 1.335, so dass es auf 1,33 aufgerundet wird.

Answer 2

Dies ist eine Funktion der IEEE-Gleitkommazahlen.

Für weitere Informationen, in einem Perl-Kontext, siehe Perlfaq4 "Does Perl have a round() function" und insbesondere, was es über Halb-Punkt-Wechsel sagt.