Как создать или протестировать NaN или infinity в Perl?

Как создать или проверить NaN или бесконечные значения в Perl?

22
infinity nan perl

6 ответов

print "Is NaN\n" if $a eq 'nan';
print "Is Inf\n" if $a eq 'inf' or $a eq '-inf';

редактировать: исправлено для отрицательной бесконечности.

13

вот довольно надежный способ:

my $inf    = 9**9**9;
my $neginf = -9**9**9;
my $nan    = -sin(9**9**9);

sub isinf { $_[0]==9**9**9 || $_[0]==-9**9**9 }
sub isnan { ! defined( $_[0] <=> 9**9**9 ) }
# useful for detecting negative zero
sub signbit { substr( sprintf( '%g', $_[0] ), 0, 1 ) eq '-' }

for my $num ( $inf, $neginf, $nan ) {
   printf("%s:\tisinf: %d,\tisnan: %d,\tsignbit: %d\n", $num, isinf($num), isnan($num), signbit($num));
}

вывод:

inf:    isinf: 1,   isnan: 0,   signbit: 0
-inf:   isinf: 1,   isnan: 0,   signbit: 1
nan:    isinf: 0,   isnan: 1,   signbit: 0
12

использовать Data:: Float из CPAN. Он экспортирует следующие функции:

  • float_is_infinite()
  • float_is_nan()
  • ...

и, вопреки другим наполовину рабочим решениям, размещенным здесь, у него есть testsuite.

6

лично я бы использовал Math::BigFloat (или BigInt) для всего, что будет касаться бесконечности NaN.

зачем изобретать колесо с помощью решения для взлома, когда уже есть модули, которые выполняют эту работу?

4

когда я искал, я получил этот сайт (здесь) и http://www.learning-perl.com/2015/05/perls-special-not-a-numbers/

связанная статья указывает, что" nan "= = " nan " никогда не истинно, когда базовая реализация c поддерживает NaN, потому что Nan не может соответствовать себе.

это хорошо иллюстрируется с

die "This perl does not support NaN!\n" if "NaN" == "NaN";

Я предполагаю, что риск запуска кода в среде, где perl деградировал изящно, а ваш код не может быть достаточно низко, чтобы не слишком волноваться.

и, конечно, если вы не хотите, чтобы perl интерполировался как число, используйте ' eq 'not'=='

0

краткий ответ, который работает следует.

1: Как создать переменную" NAN " для вывода (например, для printf):

 {no strict 'subs'; $NAN="NAN"+1;}

2: Как проверить на " NAN "(выглядит как ascii art):

 sub isnan {!($_[0]<=0||$_[0]>=0)}

3: Как создать переменные" INF " и INFN:

{$INF="INF"+1; $INFN=-"INF"+1}

4: Как проверить на " INF "(любого знака):

sub isinf {($_[0]==+"INF")||($_[0]==-"INF")}
-3