[Vienna-pm] 0 setzen eine arrays

[Michael Kröll]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Johannes Fuernkranz wrote:
|>Ich  erpare mir so a) kopieren b)loop mit einzel null setzen ..
|>   leider ergibt das noch einfachere einen Fehler:
|>	@err = map { 0 } @avg;
|
| Ich haette einfach
|
| @err = (0) x @avg;
|
| gemacht. Spricht da was dagegen?

Nachdem das auch noch um einiges schneller zu sein scheint, denke ich nicht.

- --michael

use Benchmark qw(:all);

my @avg = qw( 1 2 3 4 5 );
my @err = ();
my $r = timethese( -5, {
~        a => sub{ @err = map { 0 } @avg; },
~        b => sub{ @err = (0) x @avg; },
~    } );

Benchmark: running a, b for at least 5 CPU seconds...
~         a:  5 wallclock secs ( 4.85 usr +  0.56 sys =  5.41 CPU) @
218227.54/s (n=1180611)
~         b:  3 wallclock secs ( 4.17 usr +  0.93 sys =  5.10 CPU) @
551290.98/s (n=2811584)


- --
063A F25E B064 A98F A479  1690 78CD D023 5E2A 6688
http://zis.uibk.ac.at/.m/uibk.ac.at_pgp_pubkey.asc
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (MingW32)

iD8DBQFDoBNeeM3QI14qZogRAtfNAJ4mNUkB3vOEC0ml2mFD2TnQ4D1cYgCghlu9
qJG1AxKYpzaVp5F1XTqsrnI=
=Gb5f
-----END PGP SIGNATURE-----