Hallo, Am Tue, 28 Jun 2005, Ferdinand Ihringer schrieb:
Weiß hier jemand zufälligerweise, ob man in Perl durch irgendein Modul die Listen durch echte Arrays mit ein konstanten Zugriffszeit auf ein beliebiges Element ersetzen kann? Das ist für meinen Fall hier jetzt nicht wichtig, aber O(n) wäre schon ein bisschen schöner als O(n^2).
$ cat perlarray.pl #!/usr/bin/perl -w use Benchmark qw(timethese); open(DN, ">/dev/null") or die "$!\n"; foreach my $l (@ARGV) { print "using array of $l elements\n"; timethese(100, { "loop" => sub { my @arr; for($i=0; $i < $l; ++$i) { $arr[$i]=$i; }; for($i=0; $i < $#arr; ++$i) { print DN $arr[$i/2]; }; } }); } close(DN); $ perl perlarray.pl 1000 10000 100000 using array of 1000 elements Benchmark: timing 100 iterations of loop... loop: 1 wallclock secs ( 1.19 usr + 0.00 sys = 1.19 CPU) @ 84.03/s (n=100) using array of 10000 elements Benchmark: timing 100 iterations of loop... loop: 13 wallclock secs (12.20 usr + 0.00 sys = 12.20 CPU) @ 8.20/s (n=100) using array of 100000 elements Benchmark: timing 100 iterations of loop... loop: 127 wallclock secs (126.56 usr + 0.03 sys = 126.59 CPU) @ 0.79/s (n=100) Fuer mich sieht das verdammt nach O(n) aus. -dnh -- Q: What's the difference between a Used Car SalesPerson and a Computer SalesPerson? A: The Used Car SalesPerson KNOWS when they're lying.