Tạo một chuỗi như 112123123412345

Question

Về cơ bản tôi muốn tạo ra một chuỗi, nói:

n là 2, trình tự sẽ là 112
n là 3, dãy là 112.123
n là 5, chuỗi là 112123123412345

tôi đã tìm ra một giải pháp

n=5 
seq=1 
for (i in 2:n){ 
    seq=c(seq,rep(1:n,len=i)) 
} 

tôi tự hỏi nếu có một cách có thể làm điều đó mà không cho vòng lặp?

Answer 1

Sử dụng sequence:

> sequence(1:5) 
[1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 

Answer 2

Đây là một khả năng:

n<-5 
unlist(lapply(1:n,function(x) 1:x)) 
## [1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 

Answer 3

Nó muốn làm một cái gì đó như:

do.call('c', sapply(1:5, seq, from = 1)) 
# [1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 

Answer 4

tôi misread câu hỏi là "làm thế nào để tạo ra rằng trình tự puzzler gây phiền nhiễu ", đi theo số 1,11,21,1112,3112, ... :-). Vì vậy, tôi nghĩ tôi cũng có thể viết một giải pháp cho điều đó.

puzseq<-function(seqlen) { 
theseq<- list(1) 
for(j in 2:seqlen) { 

thetab<-table(theseq[[j-1]]) 
theseq[[j]]<-unlist(sapply(1:length(thetab), function(k) c(thetab[k], as.numeric(names(thetab)[k])))) 
} 
return(theseq) 
}