added 8 characters in body

Source Link

edited Jan 19, 2022 at 7:37

R, 35 3434 32 bytes

Edit: -1 byte thanks to Giuseppe

function(x)rep(x[!seqx,`[<-`(!x)%%2],e=20:1*2))

R, 35 34 bytes

Edit: -1 byte thanks to Giuseppe

function(x)rep(x[!seq(!x)%%2],e=2)

Edit: -1 byte thanks to Giuseppe

function(x)rep(x,`[<-`(x,0:1*2))

added 44 characters in body

Source Link

edited Jan 19, 2022 at 7:11

Edit: -1 byte thanks to Giuseppe

function(x)rep(x[seqx[!seq(!x)%%2<1]%%2],e=2)

function(x)rep(x[seq(!x)%%2<1],e=2)

Edit: -1 byte thanks to Giuseppe

function(x)rep(x[!seq(!x)%%2],e=2)

Source Link

created Jan 19, 2022 at 0:15

function(x)rep(x[seq(!x)%%2<1],e=2)