in_array() - Funktion bauen - #58784 (Allgemeines zu Perl)

Cremator

2005-10-14 01:39

User since
2003-11-26
97 Artikel
BenutzerIn
[default_avatar]

Wenn sehr niedrige Zahlen (wie die 50 bei Dir) in sortierten Listen gesucht werden muessen ist Util erstmal schneller. Muss ja, weil first dann nur 50 Elemente durchsucht und grep eben alles.

Wenn die Liste unsortiert ist oder sehr hohe Werte am Ende einer sortierten Liste gesucht werden sollen relativiert sich das.

Bei mir ist es so, das bei der sortierten Liste mit 10k Elementen beide ungefaehr gleichschnell werden, wenn man so um die 3000er Marke rum sucht, danach ist grep dann schneller.

Bei einer unsortierten Liste kann Util schneller sein, muss aber nicht und ist es meistens auch nicht. Test dazu:

Code: (dl )

use Benchmark;
use strict;
use List::Util qw(first);
my @x = ();
for(0..200) {
   push @x, int(rand(1000));
}
Benchmark::timethese(-2, {
 Grep => sub{my $y  = grep {$_ == 300} @x},
 Util => sub {my $y = first {$_ == 300} @x} });

Benchmark: running Grep, Util for at least 2 CPU seconds...
  Grep:  2 wallclock secs ( 2.05 usr +  0.00 sys =  2.05 CPU) @ 24864.13/s (n=50872)
  Util:  2 wallclock secs ( 2.13 usr +  0.00 sys =  2.13 CPU) @ 7761.41/s (n=16493)

Erhoehe ich die Listenlaenge bleibt das Verhaeltnis von ca. 1:3 gleich, wenn die gesuchte Zahl (300) nicht enthalten ist und die ganze Liste durchsucht werden muss. Je weiter vorne die Zahl in der Liste auftaucht umso schneller ist Util natuerlich.

Also laeuft das ganze auf eine Art Lottospiel hinaus. Wenn das gesuchte Element in der Liste enthalten ist, haengt es davon ab wie die Liste beschaffen ist und wie weit vorne das Element steht. Ist das Gesuchte nicht enthalten ist grep immer schneller.

Edit: Typos und Code-Tag.\n\n