Select Code to Download

#! perl -slw
use strict;
...
my $endMem = memUsed;
printf "Took %.6f and %.3fMB extra memory for $count using $M1/$M2 met
+hod\n"
    , time() - $start, $endMem - $startMem;

c:\test>each-keys-b -M1=keys -M2=pairs -N=1e6
hash built, starting timer
...
c:\test>each-keys-b -M1=each -M2=pairs -N=1e6
hash built, starting timer
Took 1.296000 and 0.020MB extra memory for 1000000 using each/pairs me
+thod

c:\test>each-keys-b -M1=keys -M2=pairs -N=5e6
hash built, starting timer
...
c:\test>each-keys-b -M1=each -M2=pairs -N=5e6
hash built, starting timer
Took 6.613000 and 0.020MB extra memory for 5000000 using each/pairs me
+thod

c:\test>each-keys-b -M1=keys -M2=pairs -N=8e6
hash built, starting timer
...
c:\test>each-keys-b -M1=each -M2=pairs -N=8e6
hash built, starting timer
Took 11.112000 and 0.023MB extra memory for 8000000 using each/pairs m
+ethod