카타 7급 Remove the minimum

R

remove_smallest <- function(numbers){
  if( length(numbers)< 1 ) return(numbers)
  numbers[-match( min(numbers), numbers )]
}

remove_smallest <- function(numbers) {
  numbers[-which.min(numbers)]
}

remove_smallest <- function(n) n[-which.min(n)]