Morgen, Leute!
Gibt es eine elegante Möglichkeit in Perl aus 16 Zahlen die kleinste Zahl, die größer null ist, herauszufinden.
Mein bisheriger Ansatz:
Geht das nicht etwas einfacher? Mir fehlt irgendwie etwas die Kreativität :suspekt:
Danke,
PETER
P.S.: gibt es eigentlich auch eine Max-Funktion, sowas wie $max=max(2,3,5,7,9) ?
Gibt es eine elegante Möglichkeit in Perl aus 16 Zahlen die kleinste Zahl, die größer null ist, herauszufinden.
Mein bisheriger Ansatz:
Code:
my $min=-1; #-1 --> undef.
if ($zahl1 > 0) {$min=$zahl1}
if ( ($zahl2>0) && ($zahl2<$min) ) {$min=$zahl2}
if ( ($zahl3>0) && ($zahl3<$min) ) {$min=$zahl3}
#[...]
Geht das nicht etwas einfacher? Mir fehlt irgendwie etwas die Kreativität :suspekt:
Danke,
PETER
P.S.: gibt es eigentlich auch eine Max-Funktion, sowas wie $max=max(2,3,5,7,9) ?
Zuletzt bearbeitet: