Скрипт:
------------------------------
#!/usr/bin/perl

$a = 601; foreach $b (0..9) { $c = $a + $b / 10; print "$c: " . (($c * 100) - ($c * 10 * 10)) . "\n"; }
------------------------------

Выдает:
601: 0
601.1: 0
601.2: 7.27595761418343e-12
601.3: -7.27595761418343e-12
601.4: 0
601.5: 0
601.6: 0
601.7: 7.27595761418343e-12
601.8: -7.27595761418343e-12
601.9: 0

Вопрос:
Почему???

Проверялось на разных машинах с конфигурациями:
Perl 5.8.8/FreeBSD 7.0;
Perl 5.8.8/Linux gentoo (kernel 2.6.20-gentoo-r8);
Perl 5.8.8/Linux gentoo (kernel 2.4.32-gentoo-r7);
Perl 5.10.0/Linux Ubuntu 8.10 (kernel2.6.27-12-generic);

XoRe, с десятичными дробями часто возникают проблемы при вычислениях из-за невозможности их точного представления в виде двоичных чисел ограниченной разрядности.



Меня кое-что удивило в Вашем примере: я думал, что оптимизатор заменит 10*10 на 100 (тогда указанное Вами поведение интерпретатора Perl было бы странным), но он этого не делает



сравните с



в случае сложения, вычисление суммы оптимизатор также не выполняет



Кто-нибудь знает, почему оптимизатор так работает?

Это сообщение отредактировал(а) ginnie - 18.2.2009, 18:59

ginnie, ассоциативность левая..
сравни с 

sir_nuf_nuf, спасибо за пояснение, что-то оптимизатор не радует своим "интеллектом"   

Сказываются пробелы в образовании.
Спасибо за информацию)

http://rt.perl.org/rt3/Public/Bug/Display.html?id=63304
Проблему можно считать решенной )

Это сообщение отредактировал(а) XoRe - 19.2.2009, 13:05