Warhammer, R - rextester

Language: Layout:

# Set number of dice and hit and wound roll needed
hitdice     <- 60  ### how many dice do you roll to hit
hit         <- 5   ### what do you hit on
wound       <- 3   ### what do you wound on
save        <- 3   ### what is their armour save
ap          <- 0  ### what is the ap
rerollhit   <- F   ### do you re roll hits F for no T for yes
rerollwound <- F   ### do you re roll wounds F for no T for yes

rolldice   <- function(hitdice,hit,wound,save,ap,rerollhit,rerollwound){
  savemod    <- save-ap
  
  # Roll for hits
  hitresult  <- sample(c(1:6),hitdice,replace=T)
  hitresult2 <- 0
  if(rerollhit == T) {
    rerolls    <- length(which(hitresult<hit))
    if(rerolls > 0) {
      hitresult2 <- sample(c(1:6),rerolls,replace=T)
    }
  }
  
  hits       <- sum(c(hitresult >= hit, hitresult2 >= hit))
  
  # Roll for wounds
  woundresult  <- sample(c(1:6),hits,replace=T)
  woundresult2 <- 0
  if(rerollwound == T) {
    rerolls    <- length(which(woundresult<wound))
    if(rerolls > 0) {
      woundresult2 <- sample(c(1:6),rerolls,replace=T)
    }
  }
  
  wounds     <- sum(c(woundresult >= wound, woundresult2 >= wound))
  saves      <- sum(sample(c(1:6),wounds,replace=T) >= savemod)
  dead       <- wounds - saves
  dead
}

tmp <- NULL
for(i in 1:20000) {
  tmp[i] <- rolldice(hitdice,hit,wound,save,ap,rerollhit,rerollwound)
}
mean(tmp)

[ + ] Show input
Absolute running time: 1.48 sec, cpu time: 2.52 sec, memory peak: 38 Mb, absolute service time: 1,48 sec