Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8336[/thread]

maximalwert ermitteln

Leser: 1


<< |< 1 2 >| >> 19 Einträge, 2 Seiten
kale_1990
 2006-09-15 16:01
#69931 #69931
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
hallo ich habe ein array $liste[$x] von dem ich den maximalwert ermitteln möchte!
bin für jeden hinweis dankbar!
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
renee
 2006-09-15 16:33
#69932 #69932
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
CPAN:List::Util

oder:
Code: (dl )
1
2
3
4
5
6
7
8
my @array = qw(1 6 2 8 3 4);
my $max = $array[0];

for(@array){
    $max = $_ if($_ > $max);
}

print $max;
\n\n

<!--EDIT|renee|1158332320-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Ronnie
 2006-09-15 16:37
#69933 #69933
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
CPAN:List::Util

EDIT: renee war schneller, hat aber einen Konsonaten zuviel ;)\n\n

<!--EDIT|Ronnie|1158323879-->
vayu
 2006-09-15 16:37
#69934 #69934
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
my @array = qw(1 6 2 8 3 4);
@array = sort @array;

print $array[$#array];
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
kale_1990
 2006-09-15 16:45
#69935 #69935
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
bekomme bei beiden varianten 8 zurückgeliefert.....der maximalwert ist aber 3?!?!
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
renee
 2006-09-15 16:53
#69936 #69936
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Brille putzen! :p
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
bo
 2006-09-15 16:57
#69937 #69937
User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
my @array = qw(122 63 25 48 323 224);
@array = sort { $a <=> $b } @array;

print $array[$#array];
kale_1990
 2006-09-15 16:58
#69938 #69938
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
hehe ;) :) leider lags nicht an meiner brille bzw. ich hab gar keine brille :p
brauch also immer noch eine lösung?!?! keiner ne andere idee??:(
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
kale_1990
 2006-09-15 17:02
#69939 #69939
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
z.b.

$level[0] = 1
$level[1] = 2
$level[2] = 3
$level[3] = 2
$level[4] = 3
$level[5] = 1
$level[6] = 1
$level[7] = 2
$level[8] = 1
$level[9] = 1

so ist das array @level belegt.....da ist der maximalwert wohl 3 oder??
aber wie finde ich es heraus?
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
Ishka
 2006-09-15 17:25
#69940 #69940
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
use strict;
use warnings;
use List::Util qw/max/;

my @level=(1,2,3,2,3,1,1,2,1,1);

print max(@level); # 3
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
<< |< 1 2 >| >> 19 Einträge, 2 Seiten



View all threads created 2006-09-15 16:01.