给定一个字符串，请你将字符串重新编码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

  给定一个字符串，请你将字符串重新编码，将连续的字符替换成“连续出现的个数+字符”。比如字符串AAAABCCDAA会被编码成A4B1C2D1A2

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符串 ABC DAA CCD BCC

你可以试试看用，strsplit, rle, unlist, paste0就可以了

总感觉写复杂了，好久没有写递归了。

1. myfun <- function(x, i = 1) {
   
2.   stopifnot(is.character(x), i <= nchar(x))
   
3.   if (nchar(x) == 1)
   
4.     result = paste0(x, 1)
   
5.   else {
   
6.     number = 1
   
7.     if (i + 1 <= nchar(x)) {
   
8.       while (stringr::str_sub(x, i , i) == stringr::str_sub(x, i + 1, i + 1)) {
   
9.         i <- i + 1
   
10.         number = number + 1
    
11.       }
    
12.       result = paste0(stringr::str_sub(x, i , i), number)
    
13.       
    
14.       if (i < nchar(x))
    
15.         result = paste0(result, myfun(x, i = i + 1))
    
16.     } else
    
17.       result = paste0(stringr::str_sub(x, i , i), 1)
    
18.   }
    
19.   return(result)
    
20. }
    
21. 
    
22. 
    
23. > myfun("jjojnonogggg")
    
24. [1] "j2o1j1n1o1n1o1g4"
    
25. > myfun("jjojnonog")
    
26. [1] "j2o1j1n1o1n1o1g1"
    
27. > myfun("jj")
    
28. [1] "j2"
    
29. > myfun("j")
    
30. [1] "j1"

复制代码

owenqi 发表于 2021-6-16 11:53
你可以试试看用，strsplit, rle, unlist, paste0就可以了

rle()确实写得好，采用滞后的思想，我没想到。