source("harness.R")

for (s in 5:sm) {
	a <- runif(10^s, 1, 100)
	for (r in 1:5) {
		timing <- system.time({
			for (i in 1:100)
				print((a[i] - min(a))/(max(a)-min(a)))

		})[[3]]
		log.result("recycling", sys, conf, s, r, timing)
		clearResultRecycler()
	}
}