# tbench1.pl - Simple benchmark of Organism class.
# Generate blinker test file with, for example:
#   perl createblinker.pl 500000 -900000 100 >x.tmp 2>y.tmp
# then run this script for two ticks, for example:
#   perl tbench1.pl x.tmp 2
use strict;
use warnings;
use Organism;

# XXX: To read Life 1.06 file, ignore leading line containing "#Life 1.06"
sub read_cells {
   my $fname = shift;
   open( my $fh, '<', $fname ) or die "error: open '$fname': $!";
   map { [ split ' ' ] } <$fh>;
}

@ARGV == 2 or die "usage: $0 file nticks\n";
my $file   = shift;
my $nticks = shift;
$nticks =~ /^\d+$/ or die "error: nticks ($nticks) not a number";
my $org = Organism->new();
{
   my @cells = read_cells($file);
   $org->insert_cells(@cells);
   my $ncells = $org->count();
   print "cell count at start = $ncells\n";
   $ncells == scalar(@cells) or die "oops";
}
warn "run benchmark for $nticks ticks\n";
my $tstart = time;
for my $i ( 1 .. $nticks ) {
   $org->tick();
}
my $tend = time;
my $taken = $tend - $tstart;
my $ncells = $org->count();
print "cell count at end = $ncells\n";
warn "time taken: $taken secs\n";