Занимательная математика с плавающей точкой

http://stackoverflow.com/questions/3916314/how-do-i-fix-this-perl-code-so-tha...

Вопрос в том, как это можно отловить в перле?

что отловить? работает так же как в js 0.1 + 0.2 != 0.3, все верно.

Как-то так

perl -e '(0 < 0.1+0.2-0.3) & (0.1+0.2-0.3 < 1e-15) ? print "ok\n" : print "false\n"';

Нашел:

$ perl -e 'printf("%.20f", 0.1 + 0.2);'
0.30000000000000004441

Показать, что сумма действительно больше 0.3

Есть ещё такое:

$ cat ./perltest 
#!/usr/bin/perl

$x = NaN;
($x == $x) ? print "true" : print "false";



$ ./perltest 
false

дык это NaN, он по определению сам себе не равен. Что тебя удивляет?

|a - b| < ε

дык это NaN, он по определению сам себе не равен. Что тебя удивляет?

Меня? Ничего. Просто на случай, если некоторые не в курсе, что значения, одинаковые бит-в-бит, могут быть не равны друг другу. Обратное тоже случается.

Забавно, учитывая следующее:

#/usr/bin/perl

use strict;
use warnings;

my $x = "abc";
($x == $x) ? print "true" : print "false";

Argument "abc" isn't numeric in numeric eq (==) at abc.pl line 8.
true%

#/usr/bin/perl

use strict;
use warnings;

my $x = "NaN";
($x == $x) ? print "true" : print "false";

false%

print +($x == $x) ? «true» : «false»;

Не важно, но «не в силах выдержать».

#/usr/bin/perl

#!/usr/bin/perl

my $x = «NaN»;

Не пытайся на*бать perl — он знает что ты имеешь ввиду!

Ну если честно, то это работает только если сделать:

$ chmod +x script.pl
$ ./script.pl

Т.к. особенность выполнения «экзешников». Я всегда пускаю через perl myscript.pl, поэтому и не заметил опечатку.

Ну если честно, то это работает только если сделать:

Да я понимаю. Можно ещё вспомнить, что в Windows это не работает. Но уж коли писать, то правильно.

см «What Every Computer Scientist Should Know About Floating-Point Arithmetic»

дык, очень старую особенность ты узнал...