Select Code to Download

print "Hey" if $responce eq "hi";
# is optimised/parsed to:
(($responce eq "hi") and print("Hey"));

print "Hey" if $responce eq "hi";
(($responce eq "hi") and print("Hey");

my @foo = map {int rand 3} 1..1000;

timethese(-15, {
...
  two:  9 wallclock secs ( 7.00 usr +  0.00 sys =  7.00 CPU) @ 9757.14
+/s (n=68300)
  one:  6 wallclock secs ( 7.00 usr +  0.01 sys =  7.01 CPU) @ 9133.24
+/s (n=64024)
three:  5 wallclock secs ( 7.06 usr +  0.00 sys =  7.06 CPU) @ 8828.47
+/s (n=62329)