#!/usr/bin/perl

use Benchmark;

sub multi_and {
  my $result = shift;
  for (@_) { $result &= $_ }
  $result
}

my %dispatch = ();
sub and_maker {

    my $num_args = shift;

    return $dispatch{$num_args} if $dispatch{$num_args};

    my $built = join '&', map {'$_[' . $_ . ']'} (0..$num_args - 1);
    return $dispatch{$num_args} = eval "sub { $built }";
}

# I'll go ahead and pre-cache these
my $and_maker_5 = and_maker(5);
my $and_maker_50 = and_maker(50);
my $and_maker_500 = and_maker(500);
my $and_maker_5000 = and_maker(5000);
my $and_maker_50000 = and_maker(50000);

my @list_5 = (1..5);
my @list_50 = (1..50);
my @list_500 = (1..500);
my @list_5000 = (1..5000);
my @list_50000 = (1..50000);

timethese(1000000, {
  'and_maker 5 elements' => sub {
    $and_maker_5->(@list_5);
  },
  'multi_and 5 elements' => sub {
    multi_and(@list_5);
  },
});
print "----\n";
timethese(100000, {
  'and_maker 50 elements' => sub {
    $and_maker_50->(@list_50);
  },
  'multi_and 50 elements' => sub {
    multi_and(@list_50);
  },
});
print "----\n";
timethese(10000, {
  'and_maker 500 elements' => sub {
    $and_maker_500->(@list_500);
  },
  'multi_and 500 elements' => sub {
    multi_and(@list_500);
  },
});
print "----\n";
timethese(1000, {
  'and_maker 5000 elements' => sub {
    $and_maker_5000->(@list_5000);
  },
  'multi_and 5000 elemets' => sub {
    multi_and(@list_5000);
  },
});
print "----\n";
timethese(100, {
  'and_maker 50000 elements' => sub {
    $and_maker_50000->(@list_50000);
  },
  'multi_and 50000 elemets' => sub {
    multi_and(@list_50000);
  },
});