Hata's Perl Hut: 小数の四捨五入・切り捨てに関する都市伝説を斬る！

10 年以上、Perl を使っていますが、浮動小数点数を int() で整数にすれば、必ず小数点以下は切り捨てられるのかと思って、いつもそうしてきました。 しかし、これ、間違いでした…… orz 真相発覚の顛末 CPAN の方に、ごく少数のモジュールを公開しているのですが、テストのエラー報告を見ていると、どうもおかしい。 # Failed test 'daily quote' # at t/Quote.t line 69. # got: '2001-01-12 340 340 340 340 7800' # expected: '2001-01-12 340 341 340 340 7800' # Failed test 'daily quote' # at t/Quote.t line 69. # got: '2001-03-23 395 395 390 390 6240' # expe

[sky-graph]

int($number + 0.50000000000008)

[pipehead]

> $rounded = int($number + 0.50000000000008);