use strict;
use List::Util qw(shuffle);
use Benchmark qw(:all);

my $string = "ACta";

print "*** ", length($string), " characters\n";
cmpthese(1_000_000, {
	uclast_substr => sub { uclast_substr($string) },
	uclast_2reverse => sub { uclast_2reverse($string) },
});

$string = join ("", shuffle( 'A'..'Z', 'a'..'z' ));

print "*** ", length($string), " characters\n";
cmpthese(1_000_000, {
	uclast_substr => sub { uclast_substr($string) },
	uclast_2reverse => sub { uclast_2reverse($string) },
});

$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));

print "*** ", length($string), " characters\n";
cmpthese(1_000_000, {
	uclast_substr => sub { uclast_substr($string) },
	uclast_2reverse => sub { uclast_2reverse($string) },
});

$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));
$string .= join ("", shuffle( 'A'..'Z', 'a'..'z' ));

print "*** ", length($string), " characters\n";
cmpthese(1_000_000, {
	uclast_substr => sub { uclast_substr($string) },
	uclast_2reverse => sub { uclast_2reverse($string) },
});


sub uclast_substr {
	my($string) = @_;
	$string = lc(substr($string, 0, length($string)-1)) 
	        . uc(substr($string, -1, 1));
	return $string;
}

sub uclast_2reverse {
	my($string) = @_;
	$string = reverse ucfirst lc reverse $string;
	return $string;
}