Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
# ex: set tabstop=4 noexpandtab:
...
   timethis($count, sub {   is_in_array($element, @array); });

}
  2. or download this
    Test with: a
With grep:
...
timethis 1000:  2 wallclock secs ( 2.28 usr +  0.00 sys =  2.28 CPU) @
+ 438.60/s (n=1000)
With given-when:
timethis 1000: 10 wallclock secs ( 9.53 usr +  0.03 sys =  9.56 CPU) @
+ 104.60/s (n=1000)