R/hits.R

In kiernann/aaa: Simulate WWII board game battles

#' Calculate the number of hits in a list
#'
#' @param l A list of logical unit roll results.
#' @return The sum of positive roll results.
#' @examples
#' hits(attack(land_units(i = 6, t = 4)))
#' @export
hits <- function(l) {
  sum(unlist(l))
}