我是编程新手,对这个问题有些困惑。我真的不知道如何互换str1和str2。非常感谢
定义一个is_twice_as_long
接受两个字符串的函数,然后#返回一个参数的长度是否(例如,布尔值)大于或等于另一个参数的两倍。
is_twice_as_long <- function(str1, str2) {
test <- nchar(str1)
test1 <- nchar(str2)
return(test >= test1*2 | test1 >= test*2)
}
我唯一的建议可能是使用max
并min
避免重复比较。如果需要,这还允许您接受多个字符串。请注意,这实际上并没有更快或更明显(恕我直言),但是由于使用了多字符串选项,因此灵活性更高。
is_twice_as_long <- function(...) {
lengths <- nchar(c(...))
return(max(lengths) >= 2 * min(lengths))
}
is_twice_as_long("a", "Ab")
#> [1] TRUE
is_twice_as_long("ac", "Ab", "abc")
#> [1] FALSE
由reprex软件包(v0.3.0)创建于2020-10-14
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句