R/is_zero.R

In jordagaman/zddr: A zero-suppressed binary decision diagram implementation for R

#' is_zero
#'
#' @param zdd a zdd list object
#'
#' @return TRUE if the zdd matches the output of zdd0()
#' @export
#'
#' @examples
#' is_zero(as_zdd(FALSE))  # TRUE
#' is_zero(zdd(0L))    # FALSE
is_zero <- function(zdd) {
  return(zdd == zdd0())
}