http://www.perlmonks.org?node_id=171756


in reply to Re: Re: Request for further enlightenment
in thread Request for further enlightenment

Still unfair...
  
sub print_map_interp { print NULL map "$_\n", @array; } ### RESULTS ### Benchmark: running field sep, for, interp map, join, list map, map, ea +ch for at least 3 CPU seconds... field sep: 3 wallclock secs ( 3.09 usr + 0.05 sys = 3.14 CPU) @ 11 +76.75/s (n=3695) for: 3 wallclock secs ( 3.14 usr + 0.03 sys = 3.17 CPU) @ 81 +4.63/s (n=2584) interp map: 3 wallclock secs ( 3.09 usr + 0.02 sys = 3.11 CPU) @ 74 +5.90/s (n=2319) join: 4 wallclock secs ( 3.05 usr + 0.17 sys = 3.22 CPU) @ 36 +80.02/s (n=11846) list map: 3 wallclock secs ( 3.00 usr + 0.02 sys = 3.02 CPU) @ 44 +6.62/s (n=1347) map: 6 wallclock secs ( 6.19 usr + 0.17 sys = 6.36 CPU) @ 61 +.17/s (n=389) Tool completed successfully
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print