Генерация последовательности как 112123123412345

Question

В основном я хочу, чтобы сформировать последовательность, скажем:

п 2, то последовательность будет 112
п 3, последовательность 112123
п 5, последовательность 112123123412345

Я придумал решение

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

мне интересно, если есть способ, может сделать это без для цикла?

Answer 1

Использование sequence:

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

Answer 2

Вот одна возможность:

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

Было бы сделать что-то вроде:

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

я неправильно вопрос, как «как произвести, что раздражающая головоломная последовательность ", которая идет 1,11,21,1112,3112, ... :-). Поэтому я подумал, что могу написать решение.

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) 
}