Help for this page

Select Code to Download

Select or download this

Here are my benchmark results:
      join:  2 wallclock secs ( 1.68 usr +  0.00 sys =  1.68 CPU)
      loop:  8 wallclock secs ( 7.60 usr +  0.02 sys =  7.62 CPU)

Select or download this

#!/usr/bin/perl -w
use Benchmark;
...
 
 
timethese(100000, {join => \&join_eq, loop => \&loop_eq});