Generieren eine Sequenz wie 112123123412345

Question

Grundsätzlich mag ich um eine Sequenz zu erzeugen, sagen:

n 2 ist, wird die Sequenz 112
n ist 3, Sequenz 112123
n 5 ist, Sequenz 112123123412345

ohne Schleife

ich habe mit einer Lösung

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

ich dort frage mich kommen, wenn ein Weg ist, kann es tun? Hier

Answer 1

Verwendung sequence:

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

Answer 2

ist eine Möglichkeit:

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

Es wäre so etwas wie:

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

ich die Frage falsch verstanden als „wie zu generieren, nervende Puzzlerfolge, "die geht 1,11,21,11212,3112, ... :-). Also dachte ich, ich könnte genauso gut eine Lösung dafür schreiben.

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