Select Code to Download

use Benchmark;

sub p_add { for my $i (1..100) { for (1..100) { $_ + $i  } } }
...
            not => \&p_not, shl => \&p_shl, shr => \&p_shr, 
            gt  => \&p_gt,  gte => \&p_gte, lt  => \&p_lt,  
            lte => \&p_lte, eq  => \&p_eq,  ne  => \&p_ne });

 lt: 2392 wallclock secs (2373.87 usr +  0.12 sys = 2373.99 CPU) @ 42.
+12/s (n=100000)
gte: 2392 wallclock secs (2374.10 usr +  0.18 sys = 2374.28 CPU) @ 42.
+12/s (n=100000)
 eq: 2401 wallclock secs (2381.67 usr +  0.33 sys = 2382.00 CPU) @ 41.
+98/s (n=100000)
 gt: 2405 wallclock secs (2387.47 usr +  0.10 sys = 2387.57 CPU) @ 41.
+88/s (n=100000)
lte: 2417 wallclock secs (2398.93 usr +  0.08 sys = 2399.01 CPU) @ 41.
+68/s (n=100000)
 ne: 2470 wallclock secs (2411.78 usr +  1.70 sys = 2413.48 CPU) @ 41.
+43/s (n=100000)

perl -MO=Deparse,-p -we 'print 1 if $foo >= $bar'
(($foo >= $bar) and print(1));
-e syntax OK

perl -MO=Deparse,-p -we 'print 1 if $foo < $bar'
(($foo < $bar) and print(1));
-e syntax OK

not: 2231 wallclock secs (2225.95 usr +  0.45 sys = 2226.40 CPU) @ 44.
+92/s (n=100000)
shr: 2653 wallclock secs (2478.63 usr +  3.47 sys = 2482.10 CPU) @ 40.
+29/s (n=100000)
and: 2513 wallclock secs (2493.72 usr +  0.31 sys = 2494.03 CPU) @ 40.
+10/s (n=100000)
 or: 2549 wallclock secs (2534.75 usr +  0.39 sys = 2535.14 CPU) @ 39.
+45/s (n=100000)
shl: 2921 wallclock secs (2507.25 usr +  6.75 sys = 2514.00 CPU) @ 39.
+78/s (n=100000)
xor: 2797 wallclock secs (2560.60 usr +  2.05 sys = 2562.65 CPU) @ 39.
+02/s (n=100000)

add: 2841 wallclock secs (2682.82 usr +  0.67 sys = 2683.49 CPU) @ 37.
+26/s (n=100000)
mul: 3048 wallclock secs (2696.55 usr +  2.84 sys = 2699.39 CPU) @ 37.
+05/s (n=100000)
sub: 2743 wallclock secs (2734.40 usr +  0.55 sys = 2734.95 CPU) @ 36.
+56/s (n=100000)
mod: 2878 wallclock secs (2755.51 usr +  0.88 sys = 2756.39 CPU) @ 36.
+28/s (n=100000)
div: 3018 wallclock secs (2989.89 usr +  0.65 sys = 2990.54 CPU) @ 33.
+44/s (n=100000)
pwr: 3883 wallclock secs (3549.47 usr +  5.42 sys = 3554.89 CPU) @ 28.
+13/s (n=100000)