카타 7급 Most digits

R

find_longest <- function(arr) {
  arr[which.max(nchar(arr))]
}

find_longest <- function(arr) {
  n=nchar(arr)
  return(arr[n==max(n)][1])
}