Opened by Updecrator at 2006-01-03 11:05
User since
2005-12-17
1615 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2005-12-17
1615 Artikel
HausmeisterIn
Hi Updecrator,
[quote=Updecrator,03.01.2006, 10:05]Eigentlich sollte Schwartz'sche Sort viel schneller als die normale Sortierung,[/quote]
wenn du die Schwarzsche Transformation sinnvoll verwendest, dann ist
sie das auch. Zum Beispiel lassen sich tabellenähnliche Zeilen damit
wunderbar sortieren ...
... weiteres Beispiel ... falls du ne Linuxbüchse hast :)
Greez,
opi
[quote=Updecrator,03.01.2006, 10:05]Eigentlich sollte Schwartz'sche Sort viel schneller als die normale Sortierung,[/quote]
wenn du die Schwarzsche Transformation sinnvoll verwendest, dann ist
sie das auch. Zum Beispiel lassen sich tabellenähnliche Zeilen damit
wunderbar sortieren ...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
use strict;
my @lines = ('Aschau 07426 KDNR23849',
'Bobitz 23996 KDNR90123',
'Coburg 96450 KDNR73369',
'Dachau 85221 KDNR42563',
'Erding 85435 KDNR73473',
'Filsen 56341 KDNR84569',
'Grimma 04668 KDNR24784',
'Hobeck 39279 KDNR84747',
'Inning 84416 KDNR57729',
'Jeggau 39649 KDNR24729' );
my $spalte = 1; # die Spalte, nach der sortiert werden soll
@lines = map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_, (split / /)[$spalte] ] } @lines;
print "$_\n" for @lines;
... weiteres Beispiel ... falls du ne Linuxbüchse hast :)
Code: (dl
)
1
2
3
4
5
6
7
my $spalte = 2;
my @sproc = map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [ $_, (split /\s+/)[$spalte] ] } qx{ps -aux};
print for @sproc;
Greez,
opi
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.