मैं पर्ल में NaN या अनंतता के लिए कैसे बना या परीक्षण कर सकता हूं?

Question

मैं पर्ल में 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 करने के लिए, उदाहरण के लिए) बनाने के लिए कैसे कैसे "नेन" के लिए परीक्षण करने के लिए (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

जब मैं मैं इस साइट (यहाँ) और http://www.learning-perl.com/2015/05/perls-special-not-a-numbers/

मिला जुड़ा हुआ लेख बताते हैं कि "नेन" == "नेन" कभी नहीं सच है, अंतर्निहित ग कार्यान्वयन NaN का समर्थन करता है जब क्योंकि नेन ही मेल नहीं खा सकता है की खोज ।

यह अच्छी तरह से

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

से दिखाया गया है मैं ऐसा माहौल पर्ल शान से अपमानित किया गया है में आप कोड रुक जाने का जोखिम लगता है और अपने कोड काफी कम इतना है कि आप बहुत ज्यादा चिंता मत करो नहीं हो सकता है ।

और हां अगर आप पर्ल एक संख्या के रूप अंतर्वेशन नहीं करना चाहते, 'eq' नहीं '=='