gistfile1.txt

store_iteration_stats<- function(iter, kNumSettlers, found.home, max.look.around) {
  #how many settlers found homes
  perSet <- (found.home/kNumSettlers) * 100
  print(c(found.home," settled out of ", kNumSettlers, perSet, "%" ) )   
  #avg # of steps per new settler
  print(c("num of Settlers who hit max look around:", max.look.around))  
  return(c(iter, found.home, kNumSettlers, perSet))
}