R语言编写函数查找字符串数组中的最长公共前缀

如果不存在公共前缀，返回空字符串 ""。

    示例 1:

    输入: ["flower","flow","flight"]

    输出: "fl"

    示例 2:

    输入: ["dog","racecar","car"]

    输出: ""

    解释: 输入不存在公共前缀。

    说明:所有输入只包含小写字母 a-z 。

commonprefix=function(strs){
p=c()
if(is.null(strs)) {print('')}
prevs = max(strs[1:length(strs)])
l=nchar(prevs)
for (i in 1:length(strs)) {
for (j in 1:l) {
if(substr(strs[i],j,j)!=substr(prevs,j,j))
{
p[i] = substr(prevs,1,j-1)
break
}
}
if(strs[i] == prevs)
p[i] = prevs
}
#打印所有字符串的公共前缀
print(min(c(prevs,p[1:length(p)])))
if(min(c(prevs,p[1:length(p)]))=='')
  print('输入不存在公共前缀')
}