Speed of Boolean equality operators

boolean_eq_timing.pl

#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes;

my @tfs = map { $_ % 2 } (1 .. 10000);

# Just warming up the arrays
my $z;
foreach my $x (@tfs) {
  foreach my $y (@tfs) {
    $z = $x + $y;
  }
}

my $start;
my $end;


$start = Time::HiRes::gettimeofday();
foreach my $x (@tfs) {
  foreach my $y (@tfs) {
    $z = !($x xor $y);
  }
}
$end = Time::HiRes::gettimeofday();
printf("Exclusivity %.2f\n", $end - $start);


$start = Time::HiRes::gettimeofday();
foreach my $x (@tfs) {
  foreach my $y (@tfs) {
    $z = !$x == !$y;
  }
}
$end = Time::HiRes::gettimeofday();
printf("Naysayers %.2f\n", $end - $start);