don't remember, but I do remember that we had a golf round back when in which my code took about 2 days to complete.

anyways, updated the timepenalty udf (and the download zip):
Code:

function TimePenalty(optional $in, $weight)
dim $,$h,$x
 if not vartype($in)
  $=ProcessorTime()
  do $x=$x+1 until 10000000<ProcessorTime(,,$)
  $=ProcessorTime()
  for each $h in split("1 2 3")
   for $x=0 to 70203 next
   $h = "a" + (1 - (0.147 * $h)/27)
  next
  $TimePenalty = ProcessorTime(),ProcessorTime(,,$)
 else
  $TimePenalty=(ProcessorTime(,,$in[0])/$in[1])/(0+$weight)
 endif
endfunction


still not always the same score.