Re^2: strange rounding

Well,
I first unsuccessfuilly serached for int(), because I could not imagine
that the division of 100 causes this,
second I thought, that other must have been unpleased as well.

Finally I want to let you know that even

$u = sprintf "%.2f", (int(0.5+($u*$p*100))/100);
[download]

produces 123.99 and not 124.00. Only Math::Round had the correct answers.

Carl

Comment on Re^2: strange rounding Download Code

Replies are listed 'Best First'.
Re^3: strange rounding by BrowserUk (Patriarch) on Nov 29, 2004 at 16:07 UTC
Try this: `print int(0.500000000000001+($u$p100))/100;` [download] Examine what is said, not who speaks. "But you should never overestimate the ingenuity of the sceptics to come up with a counter-argument." -Myles Allen "Think for yourself!" - Abigail "Time is a poor substitute for thought"--theorbtwo "Efficiency is intelligent laziness." -David Dunham "Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon	[reply] [d/l]
Re^4: strange rounding by Anonymous Monk on Nov 30, 2004 at 09:28 UTC
Nope, that doesn't give correct results! The problem is NOT within int(..) (I tried 0.501..) the result of int is correct 12400, but if you devide this (try only10!) you will get 123.99: `$cent = int(0.5 + ($u$p100); # => 12400, ok #but $dollar = $cent / 100; # => 123.99 # even if you use sprintf (which itself does # NOT round financially, you have to it yourself! $dollar = sprintf ".2f", $cent/100; # => 123.99 Dollar` [download] Hmm Carl	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks