## 1009   for x in 15117,* ; do awk '/^FINAL:/ { ++n; s += log($5+1); } END { print  1.0*s/n, FILENAME, n  }' $x; done 



/^FINAL:/ {
	++n[FILENAME]
	sum[FILENAME] += $5
	sqsum[FILENAME] += $5*$5
	logsum[FILENAME] += log($5+1)

	time[FILENAME] += $3
	if ( $5 == 0 ) { won[FILENAME]++ }
} 


END {
	printf "%8s%20s%20s%20s%12s%12s\t%s\n", "n", "avg(fitness)", "avg(fitness**2)", "avg(log(fitness+1))", "%won", "avg(gens)", "Filename"
	printf "%8s%20s%20s%20s%12s%12s\t%s\n", "---", "---", "---------------", "-------------------", "----", "---------", "--------"

	for (f in n) {

	  printf "%8d%20d%20d%20.3f%12.2f%12.2f\t%s\n",  n[f], sum[f]/n[f], sqsum[f]/n[f], logsum[f]/n[f], 100*won[f]/n[f], time[f]/n[f], f

	}
}