Opened by bianca at 2014-12-27 18:42
User since
2009-09-13
6977 Artikel
BenutzerIn
2009-09-13
6977 Artikel
BenutzerIn
Hab jetzt eine kleine Modifikation eingebaut, die wenigstens nur dann langsam wird, wenn auch Umlaute vorhanden sind.
Damit bin ich wieder bei der urspr. Geschwindigkeit, wenn keine Umlaute drin sind.
Reicht mir so und ist damit gelöst.
Wenn es jemand noch schneller hin bekommt würde ich mich natürlich freuen.
Last edited: 2014-12-28 07:17:32 +0100 (CET)
Damit bin ich wieder bei der urspr. Geschwindigkeit, wenn keine Umlaute drin sind.
Reicht mir so und ist damit gelöst.
Wenn es jemand noch schneller hin bekommt würde ich mich natürlich freuen.
Code (perl): (dl
)
1 2
my $uniccol = Unicode::Collate->new(); print join(' + ',sort {$a =~ /[öäüßÖÄÜ]/ || $b =~ /[öäüÄÖÜß]/ ? $uniccol->cmp($a,$b) : lc $a cmp lc $b} ('Vertrag','Übel','Ärger','Öl','ßig','ärgerlich'));
Last edited: 2014-12-28 07:17:32 +0100 (CET)
10 print "Hallo"
20 goto 10
20 goto 10