Perl에서 NaN 또는 무한대를 만들거나 테스트하려면 어떻게합니까?

Question

Perl에서 NaN 또는 무한 값을 만들거나 테스트하려면 어떻게합니까?

Answer 1

여기에 상당히 안정적인 방법 :

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 

Answer 2

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

편집 : 음의 무한대에 대한 수정되었습니다.

Answer 3

개인적으로 나는 NaN의 무한대를 만지는 모든 것에 대해 Math::BigFloat (또는 BigInt)을 사용합니다.

작업을 수행하는 모듈이 이미있는 경우 왜 해킹 솔루션으로 바퀴를 다시 만들어야합니까?

Answer 4

간결한 답변은 다음과 같습니다.

1

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

2 : (예 printf 함수)의 출력에 대해 "NAN"변수를 만드는 방법 "NAN"에 대한 시험 방법 (ASCII 아트 같다)

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

3 :

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

4 :에 "INF"와 INFN의 변수를 생성하는 방법 (모든 기호) "INF"테스트 방법 :

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

Answer 5

CPAN의 Data::Float을 사용하십시오. 그것은 다음과 같은 기능을 보냅니다 반 작업 솔루션은 여기에 게시 된 다른 사람에게

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

과는 달리, 그것은 testsuite 있습니다.

Answer 6

은 내가 링크 된 문서는 할머니가 자신과 일치 할 수 없기 때문에 기본 C 구현이 NaN을 지원하는 경우 "유모"== "유모가"결코 사실이라고 지적이 (여기) 사이트와 http://www.learning-perl.com/2015/05/perls-special-not-a-numbers/

을 가지고 검색하는 경우 .

이

멋지게 나는 펄이 정상적으로 저하 않은 환경에서 당신에게 코드를 실행하는 위험을 추측

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

로 설명되고 당신은 너무 걱정하지 않도록 코드가 충분히 낮을 수 있습니다되지 않았습니다 .

그리고 당신은 'EQ'하지 '=='C 라이브러리가 지원하는 위의 5.10에