Select Code to Download

odd_1:  2 wallclock secs ( 1.70 usr +  0.00 sys =  1.70 CPU) @ 586854.
+46/s (n=1000000)
odd_2:  3 wallclock secs ( 1.67 usr +  0.00 sys =  1.67 CPU) @ 598086.
+12/s (n=1000000)

#!perl -w
use strict;
...
(n=1000000)
     odd_2:  3 wallclock secs ( 1.69 usr +  0.00 sys =  1.69 CPU) @ 59
+2417.06/s
(n=1000000)

>perl -MO=Deparse -we "$n=1231234;print $n % 2"
$n = 1231234;
...
($n = 1231234);
print(($n & 1));
-e syntax OK