#!/usr/bin/perl -w

use Benchmark;

@List = ("aaaa" .. "zzzz");
print "Elements:", scalar @List, "\n";

sub first (&@) {
  my $cref = shift;
  $cref->($_) and return $_ for @_;
}

$t0 = new Benchmark;
$first_match = first {$_ eq "zzzz"} @List;
$t1 = new Benchmark;
$td = timediff($t1, $t0);

print "Found it! (sub)\n" if $first_match;
print "sub took: ", timestr($td), "\n";

# Crufty way to figure out how big I am on a Linux box - /msg me with improvements, please! -McD
$size = (split(" ", `ps -hlp $$`))[6];
print "Size: $size\n";


$t0 = new Benchmark;
my $Found=0;
for (@List) {
  if ($_ eq "zzzz") {
    $Found=1;
    last;
  }
}
$t1 = new Benchmark;
$td = timediff($t1, $t0);

print "Found it! (scan)\n" if $Found;
print "scan took: ", timestr($td), "\n";
$size = (split(" ", `ps -hlp $$`))[6];
print "Size: $size\n";



$t0 = new Benchmark;
my %seen;
@seen{@List} = ();
$t1 = new Benchmark;
$td = timediff($t1, $t0);

if (exists $seen{"zzzz"}) { print "Found it! (hash)\n"; }
print "hash took: ", timestr($td), "\n";
$size = (split(" ", `ps -hlp $$`))[6];
print "Size: $size\n";