Opened by oruebe at 2004-12-09 16:56
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Wenns nur wenige Elemente sind (und nicht zeitkritisch):
Das sortiert aufsteigend numerisch und nimmt den letzten Wert. Oder willst Du wissen, zu welchem Index der größte Wert vorkommt?
Eigentlich ist der Ansatz aber blöd, weil das Sortieren ja gar nicht nötig ist. Einfacher aber länger:
In $big ist der größte Wert und in $index der Index dazu.\n\n
<!--EDIT|Crian|1102610247-->
Code: (dl
)
my $big = (sort {$a <=> $b} @STD)[-1];Das sortiert aufsteigend numerisch und nimmt den letzten Wert. Oder willst Du wissen, zu welchem Index der größte Wert vorkommt?
Eigentlich ist der Ansatz aber blöd, weil das Sortieren ja gar nicht nötig ist. Einfacher aber länger:
Code: (dl
)
1
2
3
4
5
6
7
8
my $index = 0;
my $big = $STD[0];
for my $i (1..$#STD) {
if ($big < $STD[$i]) {
$index = $i;
$big = $STD[$i];
}
}
In $big ist der größte Wert und in $index der Index dazu.\n\n
<!--EDIT|Crian|1102610247-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite