Skip to content

Instantly share code, notes, and snippets.

@Ram-N
Created Mar 7, 2013
Embed
What would you like to do?
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))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment