String in Sequenzen gleicher Zeichen zerlegen: mit Regex - #60483 (Allgemeines zu Perl)

2005-11-28 17:01

User since
2003-08-04
12208 Artikel
Admin1

Code: (dl )

my %count;
my $max;
for (split //, $string) {
  $max = $count{$_} if ++$count{$_} > $max;
}

finde ich perlish genug. deine lösung mit sort ist relativ unperformant,
nur um das größte element zu finden.

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem