请教如何用R语言实现Trie树

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

近期一直在研究相关的算法，准备利用R语言实现一个的Trie树（下图）结构：



但是发现R语言实现这个结构还是比较麻烦，比如深层的引用传递：

1. a1 <- list(name = list( b1 = c(1,2,3) ))
   
2. 
   
3. a2 <- a1$name
   
4. 
   
5. a2$b1 <- c(3,4,5)
   
6. 
   
7. a1$name$b1

复制代码

所以小弟再阅尽了无数的资料，最终采用了一种笨办法，手动实现：

1. rm(list = ls())
   
2. 
   
3. trie <- list()
   
4. 
   
5. test_str <- c('你好')
   
6. 
   
7. addTrie <- function(trie, word) {
   
8.   char_length <- nchar(word)
   
9.   
   
10.   single_str <- strsplit(word, '')[[1]]
    
11.   
    
12.   if (is.null( trie[single_str[1]][[1]] )) {
    
13.     trie[[single_str[1]]] <- list()
    
14.   }
    
15.   
    
16.   if (char_length == 2) {
    
17.     if (is.null(trie[single_str[1]][[single_str[2]]][[1]])) {
    
18.       trie[[single_str[1]]][[single_str[2]]] <- list()
    
19.     }
    
20.   }
    
21.   
    
22.   
    
23.   if (char_length == 3) {
    
24.     if (is.null(trie[single_str[1]][[single_str[2]]][[single_str[3]]][[1]])) {
    
25.       trie[[single_str[1]]][[single_str[2]]][[single_str[3]]] <- list()
    
26.     }
    
27.   }
    
28.   
    
29.   trie
    
30. }
    
31. 
    
32. #这里如果还要处理更长的字符串，那么代码就会越来越臃肿
    
33. 
    
34. trie <- addTrie(trie, '大家好')

复制代码

所以在此请教各位前辈，有什么办法可以解决这个问题吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 如何用

没具体了解，你可以看看rtrie包

owenqi 发表于 2020-10-23 11:16
没具体了解，你可以看看rtrie包

感谢，这个包很好用