Starburst by pooq

b=nchar(a<-scan("stdin",""))
c=b/2+.5
for(i in 1:b){if(i==c)cat(a)else{for(j in 1:b)cat("if"(j==i||j==c||j==b-i+1,substr(a,i,i)," "))};cat("
")}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page