Da ich ja auch öfters mal in Basic unterwegs bin, fiel mir heute auf, daß Perl gar keine sgn-Funktion hat. Wieso eigentlich?
Zur Erläuterung für all diejenigen, die sgn nicht kennen:
sgn gibt einen Wert zurück, der anzeigt, ob ein bestimmter Wert größer, kleiner oder gleich 0 ist.
Also
Für $wert > 0 gibt's eine 1
Für $wert = 0 gibt's eine 0
Für $wert < 0 gibt's eine -1
Nun könnte man das ja auch über eine if-Abfrage lösen, "perliger" ist's aber doch wie unten gelöst:
Die Funktion sgn nimmt den zu untersuchenden Wert entgegen und gibt den entsprechenden Rückgabewert zurück.
Kommentare zum Beitrag "SGN-Funktion für Perl"
Kommentar von Uwe Schimon
Und warum nicht gleich
print $a<=>0;
?
Das ist kuerzer, braucht keinen Subroutinaufruf, keine Parameter, keinen Speicher fuer Variablen, weniger ProcLast.
und man hat es genau in einer Zeile.
Ist wie mit ++$c%2, einfach nur Perl.
Servus Uwe
Von:Alex2983 Kommentar: Super. Wenn alle so eine Beschreibung abliefern würden, wäre es ein Traum. Besten Dank Zum Beitrag
Von:Daniel Kommentar: Super Tipp, habe sie jetzt auch gefunden, nur bei mir ist es leider eine 16-stellige Nummer...Was mache ich denn jetzt damit?? Zum Beitrag
Von:Mothman Kommentar: Im obigen Kommentar sollten in der Zeile
RSS-Feed