Opened by lichtkind at 2005-03-07 22:01
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
lichtkind: ich verstehe nicht, was du mit deinem komplizierten algorithmus
willst.
was ist an:
my $seen;
my @uniq = grep {!$seen->{$_}++} @array;
denn so unschön? ist schnell(*) und die reihenfolge bleibt erhalten.
*) 4-5 mal so schnell wie deine lösung\n\n
<!--EDIT|pq|1110366724-->
willst.
was ist an:
my $seen;
my @uniq = grep {!$seen->{$_}++} @array;
denn so unschön? ist schnell(*) und die reihenfolge bleibt erhalten.
*) 4-5 mal so schnell wie deine lösung\n\n
<!--EDIT|pq|1110366724-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem