카타 7급 Two to One

R

longest <- function(s1, s2) {
  v1 = unlist(strsplit(s1,''))
  v2 = unlist(strsplit(s2,''))
  paste(sort(union(v1,v2)),collapse='')
}

longest <- function(s1, s2) {
  v1 = unlist(strsplit(s1,''))
  v2 = unlist(strsplit(s2,''))
  paste0(sort(union(v1,v2)),collapse='')
}

longest <- function(s1, s2) {
  paste(sort(union(unlist(strsplit(s1, split="")), unlist(strsplit(s2, split="")))), collapse="")
}