last night on earth combat sim

lnoe_dice_combat_sim

fight <- function(numZombieDie, numHumanDie) {
	zd <- expand.grid(rep(list(1:6), numZombieDie))
	hd <- expand.grid(rep(list(1:6), numHumanDie))
	results <- vector()
 
	for (z in 1:nrow(zd)) {
		for (h in 1:nrow(hd)) {
			zroll <- as.numeric(zd[z, ])
			hroll <- as.numeric(hd[h, ])
 
			if(max(hroll) > max(zroll)) {
				if(length(hroll) > length(unique(hroll))) {
					results <- c(results, "kill")
				} else {
					results <- c(results, "defend")
				}
			} else {
				results <- c(results, "wound")
			}
		}
	}
 
	output = list(counts = table(results), ratios = table(results) / length(results))
	return(output)
}