Jak utworzyć lub przetestować dla NaN lub nieskończoności w Perlu?

Question

Jak utworzyć lub przetestować dla NaN lub nieskończonej wartości w Perlu?

Answer 1

Oto dość niezawodny sposób:

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)); 
} 

wyjściowa wynosi:

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

Answer 2

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

EDIT: Fixed do minus nieskończoności.

Answer 3

Osobiście użyłbym Math::BigFloat (lub BigInt) do wszystkiego, co ma dotknąć nieskończoności NaN.

Po co na nowo zaprojektować koło za pomocą rozwiązania do hackowania, gdy istnieją już moduły, które wykonują zadanie?

Answer 4

Zwięzła odpowiedź, która działa.

1: Jak stworzyć "NAN" zmienną do wyjścia (do printf, na przykład):

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

2: Jak przetestować dla "NAN" (wygląda jak ASCII Art):

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

3: Jak stworzyć "INF" i INFN zmienne:

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

4: Jak przetestować dla "INF" (dowolnego znaku):

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

Answer 5

Użyj Data::Float z CPAN. Eksportuje następujące funkcje:

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

I w przeciwieństwie do innych rozwiązań pół pracy zamieszczone tutaj, to ma testsuite.

Answer 6

Kiedy szukałem mam ten serwis (tutaj) i http://www.learning-perl.com/2015/05/perls-special-not-a-numbers/

prowadzi link artykule wskazuje, że „nan” == „nan” nigdy nie jest prawdziwe, gdy instrumentem bazowym realizacja c obsługuje NaN ponieważ Nan nie może równać się .

to ładnie ilustrowany

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

Chyba ryzyko działa Ci kod w środowisku, w którym perla degradacji wdziękiem i kod nie może być wystarczająco niskie, aby nie martwić się zbytnio .

I oczywiście, jeśli nie chcesz Perl interpolować jako liczbę, użyj „eq” Nie „==”