카타 7급 Stanton measure

R

stanton_measure <- function(arr){
  sum(arr == sum(arr == 1))
}

stanton_measure <- function(arr){
  sum(arr == table(arr)[1])
}

stanton_measure <- function(arr){
  length(arr[arr==length(arr[arr==1])])
}