Skip to content

Instantly share code, notes, and snippets.

@Ram-N

Ram-N/gist:5111903

Created March 7, 2013 21:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ram-N/5111903 to your computer and use it in GitHub Desktop.
Save Ram-N/5111903 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment