fork download
copy 
  1. seq <- function(n) {
  2.  
  3. k2<- k1 <- rep(0, n+2)
  4.  
  5. c1<-w2<- 1
  6.  
  7. w1<-c2<-k1[1]<-2
  8.  
  9. while(w2<=n){
  10.  
  11.   while(c1<w1) {
  12.  
  13.      x<-(c1-1)%%2+1
  14.  
  15.    k2[w2]<-x
  16.  
  17.    w2<-w2+1
  18.  
  19.    if(k1[c1]==2) {
  20.  
  21.                k2[w2]<-x
  22.  
  23.                w2<-w2+1}
  24.  
  25.    c1<-c1+1}
  26.  
  27.   while(c2<w2 &&  w1<=n) {
  28.  
  29.     x<-c2%%2+1
  30.  
  31.     k1[w1]<-x
  32.  
  33.     w1<-w1+1
  34.  
  35.     if(k2[c2]==2) {
  36.  
  37.                k1[w1]<-x
  38.  
  39.                w1<-w1+1}
  40.  
  41.     c2<-c2+1}}
  42.  
  43. return(cbind(1:n, k2[1:n]))}
Success #stdin #stdout 0.25s 39244KB
comments (?)
stdin
copy 
5
stdout
copy 
Standard output is empty
https://ideone.com/87InA3
language:
R (R 3.5.2)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!