r - 可以连接到R中原始字符串的所有子字符串组合
问题描述
给定一组 n 个唯一有序字符,
如何找到可以连接到原始有序字符集(在 R 中)的所有子字符串组合?
例如,对于 n=5,使用以 a 开头的字母字符,输入(作为字符元素)和期望的输出(作为字符元素的向量列表)将如下所示,
输入:
ordered.chars <- "abcde"
期望的输出:
ord.substr.list <- list(
c("a","b","c","d","e"),
c("ab","c","d","e"),
c("ab","cd","e"),
c("ab","c","de"),
c("a","bc","d","e"),
c("a","bc","de"),
c("a","b","cd","e"),
c("a","b","c","de"),
c("abc","d","e"),
c("abc","de"),
c("a","bcd","e"),
c("a","b","cde"),
c("ab","cde"),
c("abcd","e"),
c("a","bcde"))
测试所有列出的字符元素向量连接到原始字符元素的条件:
all(unlist(lapply(ord.substr.list, function(x) paste(x, collapse=""))) %in% ordered.chars)
我的 google/stackoverflow 搜索导致 combn(),这在类似情况下很有用,但在这里似乎没有明显帮助。
解决方案
您的问题的核心是能够生成电源组。
这是使用RcppAlgos
(我是作者)的解决方案。
library(RcppAlgos)
customPowSetStr <- function(n) {
len <- n * 2 - 1
v <- vector("character", length = len)
v[seq(1, len, 2)] <- letters[1:n]
v[seq(2, len, 2)] <- ","
comboGeneral(0:(n - 1), n - 1, freqs = c(n - 2, rep(1, n - 1)), FUN = function(x) {
temp <- v
strsplit(paste0(temp[-(x[x > 0] * 2)], collapse = ""), ",")[[1]]
})
}
customPowSetStr(5)
[[1]]
[1] "ab" "c" "d" "e"
[[2]]
[1] "a" "bc" "d" "e"
[[3]]
[1] "a" "b" "cd" "e"
[[4]]
[1] "a" "b" "c" "de"
[[5]]
[1] "abc" "d" "e"
[[6]]
[1] "ab" "cd" "e"
[[7]]
[1] "ab" "c" "de"
[[8]]
[1] "a" "bcd" "e"
[[9]]
[1] "a" "bc" "de"
[[10]]
[1] "a" "b" "cde"
[[11]]
[1] "abcd" "e"
[[12]]
[1] "abc" "de"
[[13]]
[1] "ab" "cde"
[[14]]
[1] "a" "bcde"
[[15]]
[1] "abcde"
推荐阅读
- c# - C#将元组的LinkedList转换为元组的数组
- reactjs - ref.current.setAttribute 不是函数
- python-3.x - 从外部应用程序读取内存中的地址
- javascript - div 之间的空间似乎发生了变化
- ios - 使用“protoc --decode”解码二进制数据失败,出现错误“类型未定义”
- python - Beautifulsoup 循环提取重复
- amazon-web-services - 未处理的异常:SocketException:主机查找失败:(操作系统错误:没有与主机名关联的地址,errno = 7)
- python - windows中如何使用python以用户身份创建进程?
- r - 将等高线核密度估计图导出为栅格或 shapefile 格式
- html - 在 Django 中通过 POST 消息发送数组