카타 7급 Shortest Word

2 R

find_short <- function(s){
  min(nchar(unlist(strsplit(s, " "))))
}

find_short <- function(s){
  min(unlist(lapply(unlist(strsplit(s," ")), nchar)))
}