l=lapply(2:9,function(n)c(1:n,(n-1):1))\x0d cat(paste(c(rep(" ",8),1,"\n")),sep="")\x0d for (i in 1:8) cat(paste(c(rep(" ",8-i),l[[i]],"\n")),sep="")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page