is_isogram <- function(word) {

  func <- function(x) {
    sum(x == unlist(strsplit(tolower(word), "")))
  }

  all(lapply(letters, FUN = func) <= 1)

}