Comment puis-je créer ou de test pour NaN ou l'infini en Perl?

Comment puis-je créer ou de test pour NaN ou des valeurs infinies en Perl?

InformationsquelleAutor ysth | 2009-07-26
  1. 13
    print "Is NaN\n" if $a eq 'nan';
print "Is Inf\n" if $a eq 'inf' or $a eq '-inf';

    MODIFIER: Correction de l'infini négatif.

    • Que faire si $a n'est pas un nombre, mais en réalité c'est la chaîne "nan"?
    • Chaîne "nan" n'est pas un certain nombre de cours. ysth la solution fonctionne exactement de même. Vérifier perl -le 'sub isnan { ! defined( $_[0] <=> 9**9**9 ) }; print isnan("nan")' si vous n'avez pas confiance en moi.
    • Ne pas faire de windows...
    • Est Inf n'est pas tout à fait parfaite, vous aussi vous voulez vérifier '-inf'.
    InformationsquelleAutor Hynek -Pichi- Vychodil
  2. 12

    Ici une assez fiable:

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

    De sortie est:

    inf:    isinf: 1,   isnan: 0,   signbit: 0
-inf:   isinf: 1,   isnan: 0,   signbit: 1
nan:    isinf: 0,   isnan: 1,   signbit: 0
    • Sur 5.10 et au-dessus, où la bibliothèque C prend en charge, à seulement 0+"nan", 0+"inf", ou 0+"-inf" trop de travail.
    • Très énergique de vous: 13 minutes à peine, vous vous posez la question; à 11 minutes à peine, vous répondre; 9 minutes à peine, vous postez un commentaire. Vous devriez vous acheter une bière ou quelque chose.
    • Sauf que je ne bois pas le genre de choses...
    • Intéressant, d'où vient le 9 à la 9e à la 9e pouvoir venir à partir de? Est-il une signification particulière ou est-ce juste un moyen facile d'obtenir un nombre assez grand de faire exploser une variété de flotter spécifications?
    • oui, juste un moyen facile. Un peu de code, malheureusement, les choses comme 100**1000, qui est infini avec la double précision IEEE, mais pas à l'infini avec un long double.
    • Il suffit de ne pas utiliser ce sous bigint ou que vous vous demanderez pourquoi votre programme est suspendu.
    • Droit, en vertu de type bigint, utiliser Math::BigInt->bnan(), ->binf(), ou ->binf('-').
    • J'ai été plus de souci avec les cas où quelqu'un se tourna sur bigint et vous n'avez pas remarqué. 🙂
    • -1 parce que toute copie/collé solution est mauvaise. Utiliser le CPAN. Voir ma réponse.
    • Fondamentale à vérifier doit être possible sans l'aide de la CPAN. Il devrait être une fonctionnalité de base.

    InformationsquelleAutor ysth
  3. 6

    Utilisation Data::Float sur le CPAN. Il exporte les fonctions suivantes:

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

    Et contrairement aux autres demi-solutions de travail posté ici, il a un testsuite.

    • Il convient de mentionner que Data::Floats vérifier NaN dépend de NaN appui sur la plate-forme.
    InformationsquelleAutor dolmen
  4. 5

    Personnellement, je voudrais utiliser Math::BigFloat (ou BigInt) pour tout ce qui va toucher l'infini de NaN.

    Pourquoi réinventer la roue avec un hack solution lorsqu'il existe déjà des modules qui font le travail?

    InformationsquelleAutor cliveholloway
  5. 0

    Quand j'ai cherché j'ai eu ce site (ici) et http://www.learning-perl.com/2015/05/perls-special-not-a-numbers/

    L'article lié souligne que "nan" == "nan" n'est jamais vrai, lorsque le sous-jacent c prend en charge la mise en œuvre de NaN Nan parce que ne peuvent pas rivaliser avec elle-même.

    C'est joliment illustré avec

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

    Je suppose que le risque d'exécution de code dans un environnement où perl s'est dégradée avec élégance et votre code n'a pas peut-être assez faible pour que vous ne vous inquiétez pas trop.

    Et bien sûr, si vous ne voulez pas de perl pour interpoler comme un nombre, utilisez 'eq' non '=='

    InformationsquelleAutor jwal
  6. -3

    Succincte réponse qui fonctionne de la façon suivante.

    1: Comment créer un "NAN" variable de sortie (à printf, par exemple): 

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

    2: Comment faire pour tester le "NAN" (qui ressemble ascii art):

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

    3: Comment créer un "INF" et l'INFN variables: 

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

    4: Comment faire pour tester le "INF" (un signe):

    sub isinf {($_[0]==+"INF")||($_[0]==-"INF")}
    • (1) et (3) ne sont pas différents que juste $NAN = "NAN"+1;, $INF = "INF"+1; $INFN = -"INF"; peu plus détaillé
    • oh, je vois (4) utilise barewords trop, seul, sans désactivation stricte. Et tous de ces, qui s'appuient sur des chaînes de caractères comme "NAN" et "INF" devient le numéro" dans le contexte numérique va échouer sur les anciens perls ou lorsque le runtime C ne prend pas en charge (par exemple, strawberry perl ou activeperl sur windows)
    • Un complet, la réponse devrait inclure une suite de tests.
    • Changé pour être plus clair... c'est un bref, bonne réponse. Fonctionne également sur activeperl/windows, etc.
    • Vous n'avez pas besoin de la no strict 'subs' plus si vous n'utilisez pas barewords. Donc votre solution (toujours sans testsuite) pourrait être plus succinct. Et isinf est pas encore efficace.
    • j'ai supprimé tous les barewords

    InformationsquelleAutor Erik Aronesty