#!/usr/bin/perl

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

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

	$CMD = "./runbandit $NUM -agents 500";

	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`;
	`rm $DIR/MA*.log`;
	`gzip $DIR/*.log`;
}
