m=scan("stdin") for(i in c(1:m,(m-1):1))cat(rep(c(" ","*"),c(m-i,i*2-1))," ",sep="")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page