deleted 62 characters in body

edited Aug 18, 2018 at 12:55

Haskell, 114 110110 101 bytes

Thanks to nimi[nimi][1] for -44 13 bytes.!

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=((' '<$[2..n])++w++(x<$"aaa")++reverse w++x:x:x:w):(w++[x]x:w)#(n-1)

Haskell, 114 110 bytes

Thanks to nimi for -4 bytes.

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=((' '<$[2..n])++w++(x<$"aaa")++reverse w):(w++[x])#(n-1)

Thanks to [nimi][1] for -4 13 bytes!

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=((' '<$[2..n])++reverse w++x:x:x:w):(x:w)#(n-1)

added 106 characters in body

edited Aug 17, 2018 at 15:25

Thanks to nimi for -4 bytes.

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=[n=((' '<$[2..n])++w++(x<$[1..3]x<$"aaa")++reverse w]++(w):(w++[x])#(n-1))

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=[(' '<$[2..n])++w++(x<$[1..3])++reverse w]++((w++[x])#(n-1))

Thanks to nimi for -4 bytes.

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=((' '<$[2..n])++w++(x<$"aaa")++reverse w):(w++[x])#(n-1)

answered Aug 14, 2018 at 18:37

f n=""#(n+1+div n 7) w#0=[] w#n|x<-cycle"r vibgyo"!!n=[(' '<$[2..n])++w++(x<$[1..3])++reverse w]++((w++[x])#(n-1))