X by tttaki

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