
There's more than one way to do things
	PerlMonks

Re^3: Abusing Map (Corrected second code block)

by hippo (Chancellor)

on May 18, 2018 at 08:59 UTC ( #1214825=note: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl 
use strict;
...
    });
    print '-' x 80 . "\n";
}

Select or download this

Source array has 100000 elements
            (warning: too few iterations for a reliable count)
...
ike2    2.21   38%   13%    --   -5%
while   2.10   46%   19%    5%    --
----------------------------------------------------------------------
+----------

Select or download this

#!/usr/bin/env perl 
use strict;
...
    });
    print '-' x 80 . "\n";
}

Select or download this

Source array has 1000000 elements
          Rate ike2  BUK ike1
...
ike1 2612330/s  38%   --  -3%
BUK  2705628/s  43%   4%   --
----------------------------------------------------------------------
+----------

Select or download this

#!/usr/bin/env perl 
use strict;
...
    });
    print '-' x 80 . "\n";
}

Select or download this

Source array has 10000 elements
          Rate ike2  BUK ike1
...
BUK  2976190/s  31%   --  -7%
ike1 3184713/s  40%   7%   --
----------------------------------------------------------------------
+----------

Node Status^?

node history
Node Type: note [id://1214825]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others meditating upon the Monastery: (8)

As of 2021-01-26 13:15 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The STEM quote I most wish I'd made is:

Results (271 votes). Check out past polls.

Notices^?