lz编码的R语言实现

老师布置的LZ编码作业，自己写了一个关于R语言的实现
#BABAABRRRA B A BA AB R RR A

(0,B)1 (0,A)2 (1,A)3 (2,A)4 (0,R)5 (5,R)6 (2,)

#string output index
#(paste(paste(paste("(",0,sep="",collapse=""),str,sep=","),")",sep="",collapse=""))

以下是相关代码：

shiZhuanEr <- function(x){
re <-c()
bcs <- x
Zhi <- floor(bcs/2)
Yu <- (bcs-(2 * Zhi))
re <- append(Yu,re)
while(Zhi != 0){
bcs <- Zhi
Zhi <- floor(bcs/2)
Yu <- (bcs-(2 * Zhi))
re <- paste(Yu,re,sep="",collapse="")
}
return(re)
}

sour=“101011011010101011”#待处理片段
n = nchar(sour)#片段长度
i<-1
j <- 1#index
String<-c()
string<-c()
stringindex<-c()
index <- c()
output <- c()

while(i<=n){
if(i==1){
str = substring(sour,0,1)#第一个数 B
string <- append(string,str)#B
String <- append(String,str)
stringindex <- append(stringindex,0)
index <- append(index,j)
i=i+1
j=j+1
}else{#第二个开始
str = substring(sour,i,i)#提取单个
if(length(grep(str,String))0){#这个单字符之前不存在
string <- append(string,str)#A R
String <- append(String,str)
stringindex <- append(stringindex,0)
index <- append(index,j)
i=i+1
j=j+1
}else{#这个单字符已经存在
if(in){
stringindex <- append(stringindex,grep(str,String)[1])
string <- append(string,NA)
String <- append(String,str)
i=i+1
j=j+1
}else{
key=i
str2 = substring(sour,i,i+1)#BA 3,4 RR
i=i+1
while(length(grep(str2,String))>=1){
str2 = substring(sour,key,i+1)#3,5 RRR
i=i+1
}
if(length(grep(str2,String))==0){#增添一个后它是新的
string <- append(string,substring(str2,nchar(str2),nchar(str2)))#A RR 添加最后一个字母
String <- append(String,str2)
stringindex <- append(stringindex,grep(substring(str2,1,(nchar(str2)-1)),String)[1])
index <- append(index,j)
i=i+1
j=j+1
}
}
}
}
}

print(stringindex)

print(“分段:”)
print(String)
print(“段号:”)
print(index)

#####由于搞错了对象，上面的程序比较冗余，不过我懒得改了，该具有的参数均有且正确
va <- length(table(string))#这个用来统计待处理信源片段中的基本树分布 ==2 0 1
vai <- as.data.frame(table(string))
XinYuanFuHao <- c()
for(i in 1:va){
XinYuanFuHao <- append(XinYuanFuHao,vai[i,1])
}
#XinYuanFuHao <- c(1:va)
ErJinZhiBianMa <- c()
for(i in 1:length(XinYuanFuHao)){
ErJinZhiBianMa <- append(ErJinZhiBianMa,shiZhuanEr(XinYuanFuHao[i]))
}
WeiShu <- nchar(shiZhuanEr((index[length(index)])-1))

DuanHaoBianMa <- c()
for(x in 1:index[(length(index))]){
y <- shiZhuanEr(index[x])#初始的短号编码
while(nchar(y) < WeiShu){
y <- paste(0,y,sep="",collapse="")
}
DuanHaoBianMa <- append(DuanHaoBianMa,y)
}

MaZi <- c()
QianZhui <-c()
for(i in 1:WeiShu){
QianZhui <- paste(QianZhui,0,sep="",collapse="")
}
j <- length(String)
for(p in 1:j){
if(is.na(match(String[p],XinYuanFuHao)) == FALSE){
re <- paste(QianZhui,String[p],sep="",collapse="")
MaZi <- append(MaZi,re)
p=p+1
}else{
houDuanHaoBianMa <- substring(String[p],nchar(String[p]),nchar(String[p]))
Qian <- substring(String[p],0,(nchar(String[p])-1))
inIndex <- match(Qian,String)
QianDuanHaoBianMa <- DuanHaoBianMa[inIndex]
re <- paste(QianDuanHaoBianMa,houDuanHaoBianMa,sep="",collapse="")
MaZi <- append(MaZi,re)
}

}

print(“结果为：”)
print(MaZi)

看到这里了，请大家点个赞吧，老虎油🤣