r n=([1..n]>>" ")++"X" main=do c<-readLn;let m=c`div`2;l=[r(k-1)++r(c-2*k)|k<-[1..m]] \x09mapM putStrLn$l++[r m]++reverse l
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page