#!/usr/bin/perl

for($i = 0; $i < 50; $i++){
	for ($n = 0; $n <= 11; $n++) {
		$dir = "results-$n.$i";
		runantfarm($n, 1000 + $i, $dir);
	}
}

sub runantfarm {
	($NUM, $SEED, $DIR) = @_;
	return if (-e $DIR);

	$CMD = "./runantfarm $NUM -targets 5 -seed $SEED";

	print "Starting $CMD\n";
	`/usr/bin/time $CMD > $NUM.log 2>&1`;
	#`/usr/bin/time $CMD`;
	print "...completed $CMD\n";

	`mkdir -p $DIR`;

	`mv *.log ../generic/*.log ../simulator/*.log $DIR`;
	`./gatherdatastats $DIR/*.log > $DIR/stats.txt`;
	`gzip $DIR/*.log`;
}
