#!/usr/bin/perl

if (@ARGV && $ARGV[0] =~ /^-v$/) {
   shift;
   $VERBOSE = 1;
}

# Test how fast this machine is in order to find test scale factor
my($ub,$sb) = times;
my $count = 20000;
my $used_time;

print "Starting up with $count iterations\n" if $VERBOSE;

COUNT:
{
    # just perform some random calculations
    my($i, $x, $y);
    my(@a);
    $x = 0;
    $str = "xyzzy" x 20;
    for ($i = 0; $i < $count; $i++) {
	if ($str =~ /\d+/) {
	}
	$x = ($x + 123) % 333;
	@a = ($x) x 10;
	unshift(@a, $x);
    }

    my($ua, $sa) = times;
    $used_time = $ua - $ub;
    if ($used_time < 16) {
	# This was to fast, redo with higher $count
	if ($used_time < 0.1) {
	    $count *= 60;
	} elsif ($used_time < 1) {
	    $count *= 16;
	} else {
	    my $adjust = 18 / $used_time;
	    $adjust = 1.5 if $adjust < 1.5;
	    $count = int($count * $adjust);
	}
	print "Too fast (${used_time}s), " if $VERBOSE;
	print "increasing loop count to $count\n" if $VERBOSE;
	($ub, $sb) = times;
	redo COUNT;
    }
    printf "$count iterations consumed %.1f CPU seconds\n", $used_time if $VERBOSE;
    $factor = int($count / $used_time);
}

print "CPU SPEED FACTOR = " if $VERBOSE;
print "$factor\n";