#!/usr/bin/perl -w

use Algorithm::Numerical::Shuffle qw(shuffle);
use Benchmark qw(cmpthese);

#Randomize the array contents
my @array = shuffle 0..1000;

cmpthese(-3, {
  max_dkubb1 => sub { max_dkubb1(@array) },
  max_tilly  => sub { max_tilly(@array)  },
});

sub max_dkubb1 {
  my $max = shift;
  $max < $_ and $max = $_ for @_;
  return $max;
}

sub max_tilly {
  my $max = shift;
  $max = $max < $_ ? $_ : $max for @_;
  return $max;
}