Opened by Rambo at 2005-06-15 13:59
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
@lichtkind: zum orc'sches maneuvre: schau mal auf meiner HP -> Perl -> Erw. Sortierungen
Nebenbei: ich halte eine komplette sortierung fuer suboptimal, wenn man nur den "groessten" wert braucht... aber die Regel "verlange von einem Computer nichts, was du nicht ebenso rechnen wuerdest" scheint sich heutzutage wohl etwas relativiert zu haben...
(nicht getestet)
Nebenbei: ich halte eine komplette sortierung fuer suboptimal, wenn man nur den "groessten" wert braucht... aber die Regel "verlange von einem Computer nichts, was du nicht ebenso rechnen wuerdest" scheint sich heutzutage wohl etwas relativiert zu haben...
Code: (dl
)
1
2
3
4
5
6
7
8
my @max = (0,0,0,0,0);
foreach (@files) {
my @actual = split(\./, $_);
for my $i (0..$#actual) {
@max = @actual, last if $actual[$i] > $max[$i];
} # for
} # foreach
print "Max: ", join(".", @max), "\n";
(nicht getestet)
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/